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CALCULATING THE COUPLED LAMINAR AND 
TURBULENT FLOWS OVER A JOVIAN ENTRY PROBE 


Ajay Kumar* and Randolph A. Graves, Jr.** 


SUMMARY 

This report is a user's guide for a computer code 'COLTS' (Coupled 
Laminar and Turbulent Solutions) which calculates the laminar and tur- 
bulent hypersonic flows with radiation and coupled ablation injection 
past a Jovian entry probe. Time— dependent viscous— shock— layer equations 
are used to describe the flow field. These equations are solved by an 
explicit, two-step, time-asymptotic finite-difference method. Eddy 
viscosity in the turbulent flow is approximated by a two-layer model. 

In all, 19 chemical species are used to describe the injection of carbon- 
phenolic ablator in the hydrogen-helium gas mixture. The equilibrium 
composition of the mixture is determined by a free-energy minimization 
technique. A detailed frequency dependence of the absorption coefficient 
for various species is considered to obtain the radiative flux. 

The code is written for a CDC-CYBER-203 computer and is capable of 
providing solutions for ablated probe shapes also . This report contains 
descriptions of the input and output quantities and a brief outline of 
how to use the code. ' 


INTRODUCTION 

The report is a user's guide for a computer code 'COLTS' which calcu- 
lates the laminar and turbulent hypersonic flows with radiation and coupled 
ablation injection past a Jovian entry probe. Time-dependent viscous-shock- 
layer— type equations are used to describe the flow field bounded by the body , 
the shock wave, and the outflow boundary as shown in figure 1. A time-asymp- 
totic, finite-difference method is used to solve the governing equations. 

The details of the governing equations and the method of solution are given 
in reference 1 . 

The code is written in Control Data CYBER-203 FORTRAN language 1.4 
(an extension of ANSI FORTRAN for the Control Data CYBER-203 computer). 

The program listing is given in appendix A. It includes turbulence, 
nongray radiative transport, and coupled ablation injection of carbon 
phenolic into the H 2 - He gas mixture. In all, 19 chemical species 
are considered. These species are H 2 , H, H^, He, He"^, e , C, C 2 , C 3 , 

C+, C 2 H, C 3 H, C 4 H, C 2 H 2 , 0, O 2 , 0+, CO, and CO 2 . 


f 


’^Research Associate Professor, Department of Mechanical Engineering 
and Mechanics, Old Dominion University, Norfolk, Virginia 23508 

**Research Leader, Aerothermodynamics Branch, Space Systems Division. 


^ 


Page missing in original document. 



Card 

Number 


Symbolic 

Name 


Description 


12 

LTURB 

LTURB = 0 for turbulent flow and LTURB = 1 
for laminar flow 

13 

NT 

Number of mesh point along the body surface 
up to which the flow remains laminar. Flow 
becomes fully turbulent at NT + 1. 

14 

FTURB 

The fraction of the difference of the new and 
old eddy viscosities which is added to the old 
eddy viscosity. 

15 

LR 

The number of time steps after which the 
radiation package is called. 

16 

FMASS 

After calculating the radiative fltixes, new 
surface mass fluxes are obtained. FMASS 
represents the fraction of the difference of 
the new and old mass fluxes which is added to 
the old mass fluxes. 

17 

* 

LFI 

The number of pemnanent input file from which 
the solution of previous run is to be read to 
start the current run. 

18 

* 

LFO 

The number of permanent output file on which 
the current solution is stored after LMAX 
time steps. 

19 

VF 

Free-stream velocity in m/sec 

20 

ROF 

3 

Free-stream density in Kg/m 

21 

TF 

Free-stream temperature in K 

22 

RN 

Body nose radius in m 

23 

RE 

Free-stream Reynolds number based on nose radius 

24 

THC 

Half body angle in radians 

25 

TW 

Body surface temperature in K 


•k 

Four permanent files are defined on the Program Card. 

These are; Unit 10 = Blunt 1, Unit 11 = Blunt 2, Unit 12 = Blunt 3, 
and Unit 13 = Blunt 4. LFI and LFO can be any unit number i.e. either 
10, 11, 12i or 13. 
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Card 

Symbolic 

Description 

Number 

Name 



26 N1 Number of mesh points in tangential direction 


27 Ml Number of mesh points in normal direction 

28 NJ Number of mesh spacings between the stagnation 

point and sphere-cone juncture point 

29 DY Mesh spacing in tangential direction. This is 

obtained by dividing the distance between the 
stagnation point and the juncture point by NJ. 
Card 28 is set for a sphere-cone but for an 
ablated probe, DY has to be suitably defined. 

30 YB Distance of a mesh point on the probe's surface 

from the stagnation point 

These cards calculate local body angle THE, 
local body curvature CUR, and local distance 
of a point on the body from the axis of 
symmetry R. The cards are set for a sphere 
cone but for an ablated probe, the values of 
THE, CUR, and R have to be suitably prescribed 
at all the mesh points on the probe's surface. 

Curvature at the juncture point when the 
juncture point is considered on the 
spherical cap. 

42-47 CC Artificial damping coefficient. It is described 

by card 42 for the laminar flow and by cards 
44 to 47 for turbulent flow. 

48-61 TMASSl Arbitrairy surface mass flux initially prescribed 

on the surface mesh points. 


31-40 


41 CURNJl 


k 


PROGRAM OUTPUT 

This section describes the main quantities printed by the code. The 
code prints gross flow quantities after every 500 time steps. These 
quantities are : 

Distance along the body surface from the stagnation point 
nondimensionalized with nose radius j R^ 

Shock standoff distance nondimensionalized with R^ 

Shock speed nondimensionalized with free-stream velocity, 

Heat transferred to the surface due to diffusion nondimensionalized 
with p v 3/2 where p is the free-stream density 

00 oo oo 

Heat transferred to the surface due to diffusion and conduction 
nondimensionalized with Pa,v3/2 

Skin-friction coefficient nondimensionalized with P„V2/2 

O 

Surface pressure nondimensionalized with P„V^ 

Radiative heat transferred to the surface nondimensionalized with 
p v 3/2. This is the net radiative heat transfer. To calculate 
the”radiative heat transfer toward the wall, the radiation emitted 
by the surface should be added to the net value . 

The code prints detailed flow quantities at each grid point after every 
LW time step. These quantities are: 

ZN Distance normal to body nondimensionalized with R^ 

U Tangential velocity nondimensionalized with 

V Normal velocity nondimensionalized with 

P Pressure nondimensionalized with P^v£ 

RO Density nondimensionalized with p^ 

T Temperature nondimensionalized with 

H Total enthalpy nondimensionalized with 

2 

SH Static enthalpy nondimensionalized with 

HI Nondimens ional static enthalpy as obtained from the chemistry package. 
It is equal to ZC.h. where is the mass fraction of species i 

and h^ is the enthalpy of species 1 


(i) 

(li) 

(iii) 

(iv) 

(v) 

(vi) 

(vii) 

(vili) 


\ 
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8C. 

Nondlmenslonal chemical diffusion term Zh. ^ where n is the 
normal distance 

Eddy viscosity nondimenslonallzed with laminar viscosity 

3 

Radiative flux nondimenslonallzed with p V 

*^00 00 

In addition, the radiation package prints some quantities Including the 
net radiative flux in watts/cm2 at every other grid point in the normal 
direction and at every grid point in the tangential direction. Whenever new 
radiative fluxes are obtained, calculations are also made for new surface 
mass fluxes. The code prints the sublimation temperature nondimenslonallzed 
with T and old and new surface mass fluxes nondimenslonallzed with p V . 

00 OO 00 

For the turbulent flow, the eddy viscosity is updated after every 25 
time steps. Each time the eddy viscosity is calculated, the code prints 
the boundary layer and displacement thicknesses at each grid point along 
the surface except the first grid point. 


PC 

VIST 

QFXR 


GENERAL REMARKS 

The code COLTS has worked satisfactorily for various Jovian entry 
conditions and the results have been reported in reference 1. Since the current 
solution procedure is an explicit, time-asymptotic, finite-difference method 
which requires artificial numerical damping, it is possible that the solution 
may develop oscillations for certain free-stream conditions and the code may 
eventually fall. An adjustment in the value of the artificial damping 
coefficient, CC, may be necessary to damp these oscillations. For certain 
other conditions, a change in marching time step may be required which is 
achieved by changing the value, of FDT. Since the code typically requires 
about 100 minutes to obtain the complete solution for a given entry condition, 
it 'is suggested that the solution procedure be progressed in pieces. After 
every few thousand iterations, the intermediate solution should be checked 
and necessary adjustments should be made before going further. There is no 
fixed convergence criterion prescribed in the code. Whenever the changes 
in the old and new surface mass fluxes are not significant, the solution is 
assumed to be converged. 

As an example, the following solution procedure was used to obtain the 
coupled laminar and turbulent solutions for a given set of entry conditions. 

In all, nine runs were made with the code. In each run, LMAX, LW, and IPR 
were set equal to 4000, 2000, and 1, respectively. Other parameters were 
as follows: 

(i) LTURB = 1 (for laminar f low) ^ FDT = 1.0, FMASS = 0., LR = 2000, 

ILT = 0, LFI = 10,. and LFO = 10 

(li) LTURB = 1, FDT = 1.0, FMASS =0., LR = 2000, ILT = 1, 

LFI = 10, and LFO =11 


(iii) LTURB = 1, FDT = 1.0, FMASS = 0.1, LR = 2000, ILT = 2, 

LFI = 11, and LFO = 11 

(iv) No change in parameters 

(v) No change in parameters 

(vi) LTURB = 0 (for turbulent flow), FDT = 0.75, FMASS = 1.0, LR =2000, 

ILT = 2, LFI = 11, LFO = 12, NT = 1, and FTURB = 0.01 

(vii) LTURB = 0, FDT = 0.25, FMASS = 1.0, LR =1000, ILT = 2, LFI = 12, 

LFO = 12, NT = 1, and FTURB = 0.01 

(viii) No change in parameters 

(iv) No change in parameters 

After the last run, the changes in radiative heat fluxes and surface 
mass fluxes were found to be very small and the solution was assumed to be 
converged. In all, the solution was marched by 36,000 time steps with 
chemistiry package called after every 200 time steps and radiation package 
called after every 1000 or 2000 time steps. The complete solution required 
about 6000 seconds on CDC-CYBER-203 computer. 
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APPENDIX A 


LISTING FOR CODE 'COLTS' 


PROGRAM COLTS I I MPIJT » OUTPUT » TAP F>5= I UPl IT » TA Pf=6=OI ITPIIT » UM I T1 0=BLUMT 1 ♦ 
1IJ|\IIT11 = RLUNT2 , UMIT12 = BUJN'T3»IIMIT13=BLUMT4) 

OIMFMSIOM CC(101,14) 

OIMFMSION VISTlll01,14)t0VIST(101,i4) 
niMFUSIOM TIlllOia4)tHIl(101»14),nTMASS(l4) 

DiMFNSinN TCH( 14) ,DHI(101,14) , DTK 101,14) ( 101,14) 
niMFIMSIOM TE12( 14),CHFK(14),CHDIF(14) 

OIMFNSION YB( 14) ,R{ 14) ,TFMP1( 14) ,TFMP2( 101 ) ,Z( 101 ) , 

1TZ( 101 ) ,TZ1 ( 101 ) ,GM(7) ,DT( 101, 14) ,AU2I 101 ,14,7) 

niMFNSIOM TAIK 14,7) , T AM ( 14 , 7 ) , TAUl ( 14 , 7 ) , TAM2 ( 14 , 7 ) ,TAO( 14,7) , 
ITAUl ( 14,7 ) ,CF( 14) ,TF8( 14) ,TF9( 14) ,CR( lA) 

COMMON /F 1 /N1 ,M14,M50,M52 ,M1 , M 1 1 , M50, M J , M J 1 
COMMON /F 2/MX M, MXM 1 ,NXM3,MXM4,MXM5,MXMa,MXM2,N'XMM 
C0MM0N/F3/B2,RF,TW,MM,XX,ZZ,FM,BFTA,RM,FL ,F|.T, JJ,DY 
C0MM0M/F5/S ( 14),SS(14),G(14) ,CUR( 14 ) , US ( 1 4 ) , OS ( 14 ) , VM ( 1 4 ) , VS ( 1 4 ) 
C0MM0M/F6/INT ( 14 ) , THF ( 14 ) ,TI MP ( 14 ) ,TFMP( 14),TF(14),TFK14),TE2(14) 
1 ,TF3( 14) ,TF4( 14) ,TF5( 1 4 ) , TF6 ( 1 4 ) , TF7 { 14) 

C0MM0N/F7/U( 101,14),V(101,14),RO(101,14),H(101,14),PC(101,14) 
COMMON/CHEOAl/SH ( 101,14),T{101,14),P(101,l4),WMIX(101,l4), 

1CL( 101,14,5) 

COMMON/TRAMS/VIS( 101,14),TK(14),SIG(101,14) 

COMMON/ F8/BT (101,14) ,FMOA( 101,14),ZM(101,14),R1(101,14) 

COMMON /F9 /SI (101, 14), SSKl 01, 14), DS 1(101, 14), CUR 1(101, 14) 
COMMON/FIO/THFC (101,14),THFS(101,14),TV1(101,14),TV2(101,14) 
C0MM0N/F11/DU( 101 ,14) ,DSH( 101, 14) ,Aft( 101 ,14) , A8( 101 ,14) 
COMMON/F12/TZ2 (101,14),Z1(101,14),TZ3(101,14),TZ4(101,14) 
C0MM0N/F13/AU1 (101, 14,7 ) ,THF1 ( 101 , 1 4 ) , THE2 ( 10 1 , 1 4 ) , \/A I R ( 1 01 , 1 4 ) , DC 
1L(101,14,3),AII(101,14,7),AM(101,14,7),AM{101,14,7),AO(101,14,7) 
C0MM0N/F15/AM0( 101,2,7) 

C0MM0M/F16/HINF,RE1,RF2,SIGT,VIST( 101 , 14) 

COMMOM/F17/XH2,XHF, ALH , ALHF , AMH , TF , ROF , VF , V I S F , SH F , PF 
COMMON/ FI 9/ TF 1 1 ( 14 ) ,C 12, , PW ( 14 ) , FOCOMS , POCH ( 1 0 1 , 1 4 ) 

CDMM0N/F21/A9( 101 , 14) , A10( 101, 14) ,A13( 101 ,14) , A A 1 ( 1 Ol , 1 A ) , A A2 ( 101 , 

114) 

COMMON/F23/OFXR ( 101 , 14) 

COMMOM/CHFQN/ME,NS ,NA,MM 

COMMON/CHFOD/FORT (101,14,19),Y(101,19),X(101,19),YBAR(101) 

COMMON /CHFQC/ MW ( 19) ,SYMB( 19) ,AA( 19,5) , MWFL (5),AAA(101,19,5) 
COMMON/CHFOF/YIK 101,14,19) 

C0MM0N/CHEQA2 / EH ( 101,14,19) ,MOLFF( 101,14,19) 

COMMON/CHFQH3/CPI2( 101,14,19) 

COMMON/ITER/HI ( 101 , 14 ) ,WMI XI ( 101 , 14 ) 

COMMON/F30/TMASS1 (.14) ,TMASS( 14) 

C0MM0M/F45/CH( 14) ,TW1(14) 

BIT BIG 

REAL MW,MWFI. ,MDLFF 
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C COMSTANTS and FREESTRFAM CnMDlTlON.S 

MnLFF{ltl,l;26Rft6)=0. 

^ CPI?.( 1 »1 ,1 :26RA6)=0. 

FH( 1 , 1 , 1 ;26R66 )=0. 

VIST( l,l:1^14)=0. 

0FXR(1»1;1A1A)=0. 

WMIX(l,l;1^14)=0. 

-SIG(l,l;1414)=0. 

HI ( l,l;1414)=0. 

RD( l,l;1414)=0. 

PC( 1 »1 ; 1414)=0. 

H( I,i;i4i4)=n. 
nCL( 1 , 1 »1 ;4242 )=0, 

DVISK l,l;1414)=0. 

TMASSl ( 1 ; 14)=0. 

TMASS(l;14)=0. 

DTMASS(l;14)=0. 

CH( 1 ; 14)=0. 

TK(l;14)=0. 

PI=4.«ATAN( 1. ) 

GAMA=1.424 

RGAS=3616.9 

CPA = GAMA=:=RGAS/ (GAMA-1 . ) 


FL=1.1 ( 1. ) 

FLT=1. (2) 

SIGT=.9 (R) 

XH2=.R95 (4) 

XHF=. 105 ( 5 ) 

BFTA=1.05 (R) 

C ILT = 0»1, DR 2. ILT = 0 FOR FIRST RUN, ILT = 1 FOR SFCONO R|)N, AND 

C ILT=2 FOR SUBSFOUFMT RUNS. 

ILT=0 (7) 

C FOR IPR=0, THF LAMINAR PRANDTL NUMBER VARIES AS CALCULATFD BY THE 

C EQUILIBRIUM CHEMISTRY PACHAGE. FOR IPR=1, IT IS SET EQUAL TO 0.64 

IPR=1 («) 

FDT=1. (Q) 

LMAX=4000 (10) 

LW=2000 (11) 

C FOR LAMINAR FLOW, LTURB=1. FOR TURBULENT FLOW, LTURB=0 

LTURB=1 (12) 

■ MT=r- - ' ■ ■ ( 1?) 

FTURB=.01 (14) 

LR=2000 . , , . (15) 

■•■FMXS'S=0." ■ -. ■■■" ' 

■ LFI=-10 ■ ■ (17) 

LFn=10 ( 1«) 
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vF=33inn, 

R0F=9.17237E-4 

TF=14R. 

RM=,34.4 

RF=1.6023F6 

THC='<i4.25«PI/lR0. 

TU) = 4070, 

PF=RnF«TF«RGAS 

FM=VF/( GAMA«RGAS*TF )**. 5 

SHF=CPA*TF/VF/VF 

PF=PF/R0F/VF*«2 

VI SF=VF*RnF«RM/RF 

TVJ = TW/TF 

Nl = 14 

Ml=101 

MJ = 5 

NJ1=NJ+1 
t\IJ2 = MJ-l 
MJ3=NJ1+1 
Al=Pl/2.-THC 
0Y=A1/NJ 

YB( l;rv)l)=QRVINTL{0.,DY;YR( 1;N1) ) 
nn 10 N=i ,Ni 
IF( YB(N) .GT.Al )G0 TO 11 
THF(N)=PI/2.-YB(M) 

Cl)R(N) = l,. . 

,R'(N)=C0SITHF(N) ) 

GO in 10 

11 THF(N)=THC ' ' 

■ CUR( M)=0. ■- - 

R{N)=CnS(THC)+( YB(N)-A1 )«SIM(THC) 

10 CONTINUE 

CURNJ1=CUR (NJl ) 

CUR(MJ1)=0. 

C ARTIFICIAL DAMPING COEFFICIENT. 

CC{1,1;N1«M1)=.002 
IF(LTIJRB.F0.1)G0 TO 13 
CC( 1 , 1 ;M1 )=. 00015 

nn 14 N=2,Ni • 

N7. Y = N-1 

14 CC( 1»N;M1 )=CC( 1,MZY;M1 )+.000025+MZY*. 000015 
13 CONTINUE 

IF{ ILT.NF. 1 )G0 TO 15 

C INITIAL SURFACE MASS FLUX ARBITRARILY PRESCRIBED ALONG THE SURFACE 

TMASSl ( 1 )=.55 
TMASS1(?)=.525 


(IQ) 

(20) T 
(?n 
( 22 ) 

( 23 ) 

(24) - 

(25) 


( 24) 
( 27 ) 
( 2B ) 


( 29 ) 
( 30) 
(31) 
( 32 ) 
(33) 
( 34) 
(^ 5 ) 
( 34 ) 
( ^7 ) 
( 3B ) 
(39) 
( 40 ) 
(41 ) 


(4?) 
( 43 ) 
( 44) 

(45) 

(44) 

(47 ) 


(4R ) 
(49) 



TMASS1(3)=.465 (50) 
TMASSl (4)=.37P ( 51 ) 
TMASSl ( 5)=.250 (5?) 
TMASS1(6) = .162 ( 5P ) 
TMASS1(7)=.120 (5^) 
TMASSl (« )=.090 (55) 
TMASSl (9 )=. 085 (55) 
TMASSK 10)=. 078 (57) 
TMASSl ( 1 1 )=.075 ( 58 ) 
TMASSl ( 12)=. 071 ' (5^) 
TMASSl ( 13 )=. 069 (60) 
TMASSl ( 14)=. 067 (61) 


0TMASS( 1:M1)=TMASS1( l;Ml)/LR 
15 COMTINIJE 

ALH=2.=:'XH2 

alhf=xhf 

AMH=1 .00R*ALH+4.003«ALHE 

C12 = 16.61962/R0F’:'«. 0258/VF*4.048 

C13 = 4.59 5378F-04*RDF«*.02?203R-\/F#s;=l .3628 52/TF 

GM(1)=1. 

GM(2)=-1. 

GM(3)=1. 

GM(4)=1. 

GM(5)=1. 

GM(6)=1. 

GM(7 ) = 1. 

GM3 = CPA>:=TF/VF/VF 
HINF = 0.995'M .5+GM3) 

RE1=S0RT(RF) 

RF2=.0168*RE 

C MESH SIZES AND VECTOR LENGTHS 

M14=M1-1 
N50=Nl-2 
M52=Nl-3 
M11=M1-1 
M50=Ml-2 
M51=Ml-3 
M52=Ml-4 
MXM=M1«M1 
MXM1=MXM-M1 1 
MXM2=MXM-1 
MXM3=MXM-2 
NXM4=MXM-M1 
NXM5=NXM-M1-1 
MXM6=MXM-2«Ml-2 

MXM7 = MXM-3*M1 + 1. • 
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n n 


MXM8=MXM-2«M1-1 

NXM9=MXM-4»M1+1 

MXM10=7*NXM 

mXKM=mxm-2>:«MH-1 

MXMM2=NXM-2*!«M1-A 

MXMM^=NXM-^*M1-2 

CALL RFAn 

f=0CnMS = 831A,9*TF/'/F/VF 

CONST=RnF#VF»»!«?/l .01325F+05 

RTF=1./TF 

RC0MST=1 ./CONST 

CVISF=.1/VISF 

CVF2=1./VF/VF 

cnNSTi=vF’;”;'2/^lBA. 

RCnMSTl=l./COMSTl 
C STFP SIZFS 

nz=-i./Mii 

YM=nY«M14 
XX=?.*OY 
ZZ = 2.^-OZ 

IF( ILT.NF.O )GO TO 795 

INITIAL GUESS OF ELEMENTAL COMCENTRAT IONS , ELEMENTS ARE IN THE 
ORDER OF F,H,HF,C,0. 

cl(1.i.i;nxm)=i.f-io 

CL( 1,1,3;NXM)=XHE*A.003/AMH 
CL( 1 ,1 tA;MXM)=5.E-6 
CL( l,1.5:MXM)=5.E-6 

CL( 1 » 1 .2 :MXM) =1 .-(CL ( 1 t 1 . 1 ;nxm)+cl ( 1 , 1 . 3 : nxm ) +CL ( 1 . 1 . A ;mxm ) + 

1CL( 1.1,5 ;NXM) ) 

S(1;M1)=.125 
SS(1;N1) = (). 
ns(l:Ni)=o. 

795 CONTINUE 

IF( ILT.FQ.niGO TO 865 
no POO M=1,N1 

RFAD(LFI.510)S(M) ,TMASS(M) , DS { N ) , SS ( N ) , CH ( M ) 

RFAD( LFI ,590 ) ( U( M.N ) , VI M.M ) , P( M.M) ,T( M.N) , RD( M.M ) . SH ( M.N ) ,H ( M.N ) , 

l'/IS(M,M) ,VIST( M,M) ,M=1 ,M1 ) 

RFAD( LFI ,560 ) ( YI 1 ( M,N, 1 ) ,YI 1 ( M,M,2 ) . YI 1 ( M, M, 3 ) ,YI1 (M,n,A) , YI U m.m 

I ,5) ,YI 1 ( M,M,6 ) ,NMI X( M,N) ,M = 1 ,M1 ) 

RFAn(LFI,550)(YIl(M,M,7),YIl( M,N,R ) ,YI1IM,M,9),YI1{N,M,10),YT1(M, 
IN, 11) ,YI1(M,N,12),0FXR(M,N),M=1,M1) 

READ! LFI ,660) ( YI 1 ( M,M, 13) ,YI 1 ( M,N, lA) , YI 1 ( M,M, 15) , YI 1 ( m.m, 15) , 
1YI1(M,M,17) ,YI1(M,M,18) ,YI1(M,N,19) ,M=1,M1) 

RFAD( LFI , 660) ( CL (M,M, 1 ) ,CL I M, M,2 ) ,CL ( M,M, 3 ) ,CL ( M,n,4 ) ,CL ( m,m, 5 ) , 
1F0CH(M,M) ,PC( M,N) ,M=1 ,M1 ) 


lit 


WRITF(6»805)TMASS(NI) 

RnO CnNTIMlJF 

R05 FORMAT!/, lOX, 'MASS FLI IX= ' , F 1 5 . A ) . 

WMIXl { 1,1 ;MXM)=0. 
on P50 1=1, MS 

B50 wMixi ( 1 , 1 ;mxm)=wmixi ( 1 , 1 ;mxm)+ym ( 1 ,1, 1 ;mxm) 
no B60 1=1, NS 

«^0 MOLFF ( 1 , 1 , I ;NXM)=YI 1 ( 1 , 1, I ; MXM) /WMI XI ( 1 , 1 ;MXM ) 

B65 CONTINIJF 

on 20 M=1,N1 
VS(N)=CnS(THF(N) ) 

20 \/N(N)=-SIN(THF{M) ) 

Z(1:m 1)=0B\/INTL(1.,0Z;Z(1;M1) ) 
on B5 N=l,Nl . 

SI ( 1 ,n:mi )=S( N) 
nsi ( I , n;mi )= os( M) 

SSK 1,N;M1) = SS(N) 

CORK 1,M;M1 )=CI)R{M) 

Rl( 1,N;M1 )=R(N) 

35 THFl ( 1 ,N;Ml )=THF( N) 

THFC( 1 ,1 ;MXM)=VCnS (THFl ( 1 ,i;nxm) ;thfc( 1 , 1 :nxm) ) 

THFS( 1, 1 ;NXM)=VSIN( THFK 1,1 ;NXM) ;THFS( 1,1 ; MXM) ) 

INT{ 1;N1 )=Q8VIMTL ( 1 , Ml ; I NT ( 1 ; M 1 ) ) 

C ROUNOARY AMO INITIAL CONDITIONS 

IF( ILT.NF.OIGO TO 55 
TF ( 1 ;M1 )=VSIM( THE! 1 ;N1 ) ;TF( 1 ;mi ) ) 

TF( l;Nl )=VF*.001*TF{ 1 :N1 )*( 1 , + .7467^.= ( 1 .-XH?) ) 

TFl ( 1 ;N1 )=5.6611-,52661^.‘TF{ 1 :N1 ) + . 02037R^.«TF ( 1 ;Nl ) »i‘*2-.00037P51=;= 
ITF. ( 1 ;N1 )«^3+.OOO0iO34265-'TE { 1 : Ml ) **4-.00n00n012206»TF ( 1 ;N1 ) >;=«5 
■ TFriTrNn'=TFl(l:Nl)-.316Y*{r.-XH2) ' 

TF2( 1 ;N1 ) =-545.37 + 61 .60e>'.«TF( 1 ;N1 )-2.245Q*TF( l:Ml + . 039922#TF ( 1 

IMl )>I:*3-.0003514R-';«TF.( 1;N1)-'''.'4+.00000LZ361*TF ( 1 ;m1 ) 

TF2( 1 :N1 )=TF2 ( 1:N1 )+61,2«( 1 .-XH2) 

TF11(1;N1)=TF1(1;N1)«C12 
TF12(1;N1)=TF2{1;M1)*C13 - 

DO 40 N=1,N1 

40 TFMP(N) = SIN(THF(N) )»*2*( .95+.05*(N-l)/Nl) 

P{1,1:NXM)=08VSCATR(TFMP(1;N1 ),INT(l:Ml ) ; P ( 1 , 1 .* MXM ) ) 

TEMP ( 1 ;N1 ) =0. 

il( 1,1 ;nxM)=Q8VSCATR(TEMP< 1;ni ),Int{i;m1 ) ; IK 1 ,T ; nxm ) ) 

V{ 1 , 1:MXM) =08VSCATR( TFMP ( 1 ;N1 ) , INT( 1:M1 ) ; \/ ( 1 , 1 : NXM ) ) 

TEMPI 1 ;N1 )=TW 

T( 1,1;NXM)=0RVSCATR(TEMP( i;ni ),INT(1:N1 ) :T( 1 ,1:MXM) ) 

TFMP ( 1 ; Ml ) =VS ( 1 ; Ml) 

IMMl , 1 ;NXM1 )=08VSCATR(TFMP( 1 ;Ml ) , INT( 1 :Nl ) ; 1) ( Ml , 1 ; NXMl ) ) 

TFl ( 1 ;ni )=.5-TF11 ( 1 ;ni ) 


TE2( 1 ;mi )=TFll { 1 ;mi )/vni( 1 ;mi )>:'(PF+vm( 1 ;mi )««2) 

TF^( l;Nl)=-( ,5*VN1( 1;N1)«’:«2+SHF) 

TF-i( 1 ;N1 ) = TF2( 1 ;M1 )««2-A.*TFl ( 1 ;Ml )*TF3( 1 ;M1 ) 

TF4( 1 ;n1 )=\/SQRTITEA( 1 ;M1 ) ;TFA| 1 ;M1 ) ) 

TFMPl I 1 ;N1 ) = (-TE2( 1 ;M1 )-TFA( 1 ;ni ) )/2./TF1 ( 1 ;ni ) 

V( Ml , 1 ;NXM1 )=Q8VSCATR{ TEMPI ( 1 ;M1 ) , IMT( 1 ;Ml ) ? V ( Ml , 1 ; MXM 1 ) ) 

TFMP ( 1 ;M1 ) =PF + VM{ 1 ;N1 )»;'='^2-VM( 1 ;M1 I’i'TFMPl ( 1 ; N1 ) 

P(M1 ,1 ;NXM1 )=OBV.SCATR( TEMPI 1 ;N1 ) ♦ INTI 1 ;Ml ) : P I Ml » 1 ; NXMl ) ) 

T(M1,1)=108. 

T(M1 ,2)=105. 
on ^5 M=3,N1 
45 T(M1,N)=102. 

TEMPI 1 ; Ml )=-TF3( 1 ;m1 )-. 5»:‘TFMP1 ( 1 ;M1 )«*2 

SHI Ml , 1 ;MXM1 ) =08\/SCATRI TEMPI 1 ; Ml ) , IMT I 1 5 Ml ) ; SH | Ml , 1 ; MXMl ) ) 
on 50 Mrl»Nl 

0XI)=|1)|M1 ,M)-IJI 1 ,M) ) /Mil 
nXV=|V|Ml,N)-VI 1,M) )/Mll 
nXP=|P|Ml ,N)-P| 1 »M) )/Mll 
nXT=|T|Ml,N)-TI 1,N) )/Mll 

HI 1,M;M11 )=Q8VIMTL lul 1,M) ,DXU:i)l ItM: Mil) ) 

VI 1 ,M; Ml 1 )=08VIMTL I VI 1 »m) ,oxv; VI 1 ,m;mii ) ) 

PI 1 ,N;M11 )=08VIMTLIP I 1 ,M) ,DXP;P| 1,M;M11 ) ) 

50 Tl 1 ,M;M11 )=08VIMTLI TI 1 »M) ,0XT: TI 1 tM;Ml 1 ) ) 

L = 0 

PWI1;M1 )=opvgathripi2,1;mxmi),imtI1;mi);phi1;mi) ) 

PI 1 » 1 IMXMI )=08VSCATR I PWllJMl ) , I NT I 1 ; Ml) : P | 1 , 1 ; MXMl ) ) 

TI 1 ,1 ;mxm )=TI 1 , 1 ;mxm)«tf 
PI 1 ,1;mxm)=pi 1 ,1 ;mxm)’'.'COMST 
CALL THERMO 
on 51 M=1,M1 

51 CALL CHEQ|0,N,M1,L) 

, call CHEMIO) 

P I 1 , 1 ;NXM )=P ( 1 , 1 ;MXM)*RCnMST 
Till l,l;NXM)=Tll ,1:MXM) 

TI ltl;NXM)=Tll,l;MXM)>;^RTF 

on 52 N=1,M1 

SHI 1,M)=HI I l»M)>:=RCnMSTl 

Rni 1 ,M ) = PW IN )=:=WMIX I 1 ,M) /FQCOMS/TM 

nXSH=|SH|Ml ,N)-SH| 1 ,M) )/Mll 

52 SHI 1,M:M11 )=08VIMTLI SHI 1 ,M )., OXSH ; SH I 1 ,M;M11 ) ) 

55 CnNTIMIJF 

Rl=l BFTA + 1 . ) / I BFTA-1 . ) 

R2 = 2.=;=RFTA/ALnGI 81 ) 

TZI 1 :mi )=B1=:«=!«| 7.1 1 ;mi ) ) 

TZl I 1 ;M1 ) = BETA-'M TZI 1;M1)-1.)/ITZI1;M1) + 1.) 
on 30 M=1,M1 


— l6 




^99 

1 


3 


700 


710 

711 
719 


Zl( 1»M;M1)=TZ1( 1;M1) 

ZN{ 1 , 1 ;mxm)=si { 1, 1;nxm)«( I.-Zl ( 1 , 1 ;aixm) ) 

PMDA ( I »1 ;NXM) = 1 . + ZN( 1 »1 IMXMlsl'CURK 1 1 1 ;NXM) 

HT ( 1 , 1 ;MXM )=Ri ( 1 , i;nxm)+zn( 1 ♦ 1 ;mxm)*thfC( 1 , 1 ;mxm ) 

TZ2( 1, 1:NXM)=8FTA«BFTA-Z1 ( 1,1 ;MXM)«Zl( 1 , 1 tMXM) 

TZ3( 1 , 1 ;NXM )=2.*Z 1 ( 1 , 1 ;NXM) /TZ2( 1 , 1 ;MXM) 

TZ4I l,l;NXM)=R2/TZ2( 1,1;MXM) 

AU1(1,1,1;MXM10)=1. 

At)2( 1,1,1;MXM10)=1. 

TFB(1;N1)=1. 

TF9(1;M1)=0. 

WRITE (6,399) ALPHA, RE, FM 

FnRMAT(/,lX,'Al.PHA',F8.5,5X,'REYM MO.' , F 1 5 .3 , 5X , • M ACH NO.' ,Ffl.3) 

IF( L .EO. l )f7n in 3 

CONTINUE 

LL=L/200 

LL=LL«200 

IF(LL.MF.L)GO TO 2 

CONTINUE 

SH ( 1 , 1 ;NXM ) =SH ( 1 , 1 ;NXM )s;! CONSTl 

T ( 1 , 1 ;NXM ) =T ( 1 , 1 :MXM )*TF 

P ( 1 , 1 :NXM ) =P ( I . 1 ;nXM )« CONST 

CALL THFRMO 

CRIT=l.F-7 

KTEST=0 

DO 700 JF=1 ,N1 

CALL CHEOIKTEST, JF,N1,L,CRIT) 

CALL CHFM(KTEST) 

TI1(1,1;NXM)=T( 1, 1;NXM) 

HIK l,i;NXM)=HI ( 1.1;MXM) 

T ( 1 , 1 ;nxm) = i .02*T( 1 , 1 ;nxm) 

Twn=TW*TF 

T(l,l;i\lXMl)=QBVSCATR(TWn,lNT(l;Ml ) ; T( 1 , 1 : NXMl ) ) 

CALL THFRMO 

no 710 JF=1,N1 

CALL CHEO{ 1 ,JF,M1 ,l,CRIT) 

CALL CHFM(l) 

00 711 N=1,N1 
SH( 1,M)=HI ( 1,N) 

TCH(1;n1)=0. 

LCHFM=0 

COMTIMUF ■ ' 

LCHFM=LCHFM+1 

TV 1 ( 1 , 1 ; NXVi ) = ( HI ( 1 , 1 ; MXM ) -SH ( 1 , 1 ; NXM ).) / SH ( 1 , 1 ; MXM ) 

TV1(1,1;MXM) =VABS( TVl ( 1 , 1 : MXM ) ; TV/1 ( 1 . 1 ; MXM ) ) 
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nn 7?5 M=i tMi 

IFR=ORSGF( TVl ( 1 ,M;M1 ) , .01 ) 

IF( IFR.NF.Ml )Gn TO 725 
TCH(N)=1. 

72 5 COMTIMIIF 

I I=OfiSMF( TCH( 1 :M1 ) ,1 . ) 

I F ( 1 1 . FO.Nl )Gn in 716 

OHI ( 1 , 1 ;NXM)=HI 1 ( 1 ,1 ;MXM )-HI ( 1 ,1 ;MXM ) 
nil ( 1 , 1 ;NXM )=TI 1 { 1, 1 ;mxm)-T( 1 , 1 :mxm) 

RIG( 1,1;NXM)=TV1(1,1;MXM).LF..01 

OHI ( 1 , 1 ;MXM )=08VCTRL { 1 . »BI G( 1 , 1 ;MXM ) ; OH I ( 1 ♦ 1 ; MXM ) ) 

OTK 1,1;NXM)=C)R\/CTRL (0.,BIG( 1 , 1 ; WXM ) ; OT I ( 1 , 1 ; MXM ) ) 
TV1(1,1;MXM)=T{1,1;MXM) 

TV2( 1,1;NXM)=HI(1,1;MXM) 

T ( 1 , 1 ;nxm )=T( 1 , 1 ;MXM)+dti ( 1, 1 ;mxm )« ( SH ( l , i ; nxm ) -hi ( l , i ; mxm ) ) / 

IHHI ( 1,1;NXM) 

TIl(l,l;NXM)=TVl( 1.1 ;mXm) 

HIK i.i:nxm)=t\/2( 1,1;mxm) 

CALL THFRMn 
no 720 JF=l,Ml 
IF(TCH( JF).F0.1. )GG TO 720 
CALL CHFQ( 1 , JF ,M1 ,L»CRIT ) 

720 CnMTIMIJF 

CALL CHFM( 1 ) 

IF(LCHFM.LF.50)Gn TO 715 
MR I TF( 6,730)1. 

STOP 

730 FORMAT (// ,9X NO. OF ITFRATl'OMS IM CHFMISTRY FXCFFD 50 FOR L=',I4) 
716 CONTINIJF 

on 745 1 = 1, NS 

C FORT RFPRFSFNTS MASS FRACTIONS 

FORT ( 1 , 1 , I : MXM ) =M0LFF ( 1 , 1 , I ; MXM ) *mw( I)/WMIX(1,1;NXM) 

745 PH ( 1 , 1 , I ; MXM ) = FH ( 1 , 1 , 1 ; NXM ) *41 84. /MKi{ I ) s|«C\/F2 
TVl ( 1 , 1 ; MXM ) =-ZZ*S 1 ( 1 , 1 ; MXM ) «TZ2 { 1 , 1 ; MXM ) /B2 

PC( l,l;MXM)=o. 
no 2000 1=1, MS 

TV2 ( 2, 1 ;MXM3) = ( FORT (3,1,1 :MXM3 )-FORT( 1 1 1 , I ;MXM3) )/TVl {?,1 ;MXM3 ) 

no 2010 M=1 ,M1 

XX1=TV1(1,M) 

TV2( 1 ,M ) = (4.«F0RT( 2,M, I )-3.=:=F0RT( I ,M, I )-FORT( 3 ,M, I ) ) />‘xi 
XX2=TV1 (Ml ,N) 

TV2 ( Ml ,M ) =-( 4.=:=FnRT( Ml 1 , M , I )-3 .s'^FORT ( Ml ,M, I ) -FORT ( M50,M, I ) ) / xyp 

2010 COMTIMIIF i > > > c. 

2000 PC( 1 , 1 ;MXM)=pc ( 1 , 1 :mxm)+eH( 1 , 1 , 1 ;nxm)':=TV2( 1 , 1 ;mxm) 

CALL TP 

SH ( 1 , 1 : MXM ) =SH ( 1 , 1 ; MXM ) i;:RCOMSTl 
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HI ( 1 ,l ;NJXM)=HI ( 1 tl :NXM)*RC0NST1 
T( ltl:NXM)=T(l»l : mxm)#RTF 
P( 1 » 1 ;MXM)=P( l,l;MXM)*RCnMST 
vis( I , 1 ;mxm)=vis( 1, i;mxm)#cvi SF 

TK( 1 ;M1 1 ;N1 ) 

IF( ILT.FO.O.AMn.L.FO.DGn TO 24 
nHi ( 1 , i;NXM) = FOCH{ It 1 ;nxm) 

FOCH( 1 t 1 ;NXM)=SH( 1 ♦ 1 :MXM)«WMIX( 1, 1 :MXM)/FOCnMS/T( 1 t 1 ;NXM) 

OTK ltl;MXM)={ F0CH(1»1;NXM)-DHI( 1,1;MXM) )/200. 

FOCH( 1,1 :NXM)=0HI (ItltNXM) 

Gn TO 25 

24 COMTIMUF 

FOCH ( 1 , 1 : NXM ) =SH ( I , I ; MXM ) «WM I X ( 1 ♦ 1 ; MXM ) / FOCOMS /T ( 1 ♦ 1 ; MXM ) 

RO{ ltl;NXM)=FOCH( ltl;NXM)#P(l,l;MXM)/SH( 1,1 ;mxm) 

H( 1 , 1:NXM)=SH( 1,1:MXM)+(U( 1,1:NXM)«UI 1 tl!NXM)+V( It 1;NXM)«V( 1 ,i;mxm 
l))/2. 

nil ( i,i;nxm)=o. 

25 CnMTIMIIF 

IF( IPR.FO.DS 1G( 1,1 :NXM) =0.54 
2 COMTIMUF 

FOCH( 1,1 ;NXM)=FQCH{l,l:MXM)+nTn ltl;NXM) 

IF( ILT.FO.OIGD TO R 
IFdTIIRB.FO.l )G0 TO 9 
I.L = L/25 
U.=LL«25 

IFdL.NF.DGO TO 4 

VISTK l,l:NXM)=VIST( 1 ,i;mxm) 

CALL OFRV 
CALL FnOY(NT) 

nVISK l,l;MXM)=FTIJRB*( VIST( 1 ,1 ;NXM)-\/IST1( 1,1 ;mXM) )/2 5. 

VIST( 1,1;NXM)=VIST1( 1,1;NXM) 

4 COMTIMUF 

VIST( 1 ,l:NXM)= VIST! l,l;MXM)+n\/IST(l,l:MXM) 

9 COMTIMUF 

IF(L.LT.LR.AMn.ILT.E0.1 )Gff? TO 12 

IF(L.PC). 1 )G0 TO 5 

LL=L/LR 

LL=LL*LR 

1F(LL.MF.L)G0 TO 5 
9 COMTIMUF 

• P( 1, 1;MXM)=P( 1 ,1 :NXM,)=!‘CnMST 
T ( 1 , 1 :mxm ) =T n , 1 ; MXM ) *TF 
TVK 1,1;nXM) = ZM( 1,1;mxm) /S l( 1 ,1 :mXM) 

S( 1 ;mi )= s( 1 :mi )«RM*100. 

IF(L.F0.1)G0 TO 7 
no 5000 JF=1,M1 


( 
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CALL ATRADIJF) 

5000 COMTINUF 

0RV5F = 1 . F4/ ( RriF>l‘\/F«*3 ) 

OFXR( 1,1 ;NXM)=-0FXR( 1 tl;MXM)«0RV3F 
7 CnMTIMlIF 

CALL SURLIM(Ml ,MXMl,\/F,RnF) 

OTMASS ( 1 ;M1 )=FMASS* ( TMASSl ( I ;M1 )-TMASS ( 1 :M1 ) ) /500, 
TW1(1;N1)=TW1(1;M1)«RTF 

WRITF(6, 1500) ( TWl (M ) ,TMASS(M) , TMASSl ( M) ,M=1 ,M1 ) 

1500 FIIRMAK / , ' WALL T FMP , = ' » F 1 5 , 6 , 2X , • ni, 0 MASS FLHX= ' ♦ FI 5. A, 2X , 

1»NFW MASS FLUX=' ,F15.A) 

P( 1 ♦ 1 ;mxm ) =p ( 1 , 1 ;mxm )«R cnMST 
T ( 1 , 1 ;nxm )=T( 1 , 1 ;NXM)«RTF 
S( 1:N1 ) = S( 1 ;mi )/( 100.«RM) 

LM = 0 

A CONTIMUF 
lm=lm+i 

IF(LM,GT.500)Gn TO 8 

1? tmass( 1 ;Ni )=nTMASS( 1 ;mi )+TMASS( i;mi) 

R CnMTIMDF 
MM=1 

VAIR ( 1 , 1 :NXM2 ) =GAMA«P( 1 , 1 ;mXM 2 ) /Rfl ( 1 , 1 ; MXM2 ) 

VAIR( 1, 1 ;MXM2)=VS0RT( VAIR( 1 , 1 ; MXM2 ) ; \/A I R ( 1,1;MXM2)) 

DT ( 1 ,1 ;NXM2)=FnT=M ZN(2,l :MXM2 )-ZM( 1 , 1 ;MXM2 ) ) / I VARS ( V ( 1 , 1 ; MXM2 ) ; 
1THF2( I , I :MXM2 ) )+VAIR( 1 , 1 ;MXM2) ) 

TIMP(1:N1 ) =0RVGATHR ( ni ( Ml 1 , 1 ; NXMl ) , I NT ( 1 ; Ml );TIMP(1 ;m1 )) 

0T(M1 ,1 tMXMi )= qrvscatR ( TIMP( 1;mi ) , imt( 1 ;m] ) :ni(Ml ,1 ;mxm1 ) ) 

nn 70 M=i,Ni 
nTM=ORSMIN(nT( i,m;mi ) ) 
nj( 1 ,m;mi )=DTM 
70 TI‘mP(M)=OTM 
CALL OFRV 

call VFCl ' 

nOY = DY=:=( 2.+CIJRMJl=:'S(MJl ) ) 

00 110 1=1,7 

AUl ( 2,2, I :NXM6 )=AII(2,2,I ; MXMA ) -DT ( 2 , 2 : MXMA ) ( AM (2, 3, I ;MXMA)-AM(2, 

12,1 :MXM6 ) ) /DY+( AM(3,2, I ; MXMA ) -AM ( 2 , 2 , I ;MXMA) ) /OZ+AO { 2 , 2 , I JMXMA) ) 
AUK 2,N1 , 1 :M50 )=AI){ 2,M1 , 1 : M50 ) -DT ( 2 , M 1 ; M50 ) >:« ( ( A M ( 2 , Ml , T : M50 ) -AM ( 2 . 
1M14, 1 ;M50 ) ) /DY+( AM( 3,M1 , I ; M50 ) -AM ( 2 , M 1 . I :M50 ) ) /D7. + A0(2,M1 , I ;M50) ) 
AUl ( 2,Nv)l , I : M50)=A(I( 2,MJ1 ,I ;M50)-DT( 2,MJ1:M50)*((AM(2,MJ3,I:MSO)- 
1AM(2,MJ, I ;M50) ) /DDY+( AM( 3,MJ1 , I :M50 )-AM( 2 ,MJ1 , I : M50 ) ) /DZ+ 

2A0{ 2,MJ1 , I ;M50 ) ) 

TAU(1,I;M1 ) =0B VG ATHR ( AU( Ml , 1 , I ; MXMi ) , I mt ( 1 ; Ml ) ; TAIl( 1 , I ;M1 )) 

TAM(1,I:M1 ) =DRVGATHR ( AM( Ml , 1 , I ;MXM1 ) , IMT( 1 : Ml );TAM(1,I;MI )) 
TAN1{1,I;N1 ) =08 VGATHR ( AM{ Ml , 1 , I : MXMl ) , I MT( 1 ; Ml ) ; TAMl ( 1 , I ; Ml )) 
TAM2(1,I:M1 ) =08VGATHR ( AM( M 1 1 , 1 , I ; mXMI ) , I MT I 1 ; Ml ) ; TAM2 ( 1 , I : Ml )) 
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TA0(1,I;N1 )=0«VGATHR( AQ(M1 1 1 1 1 ;MXM1 ) , IMTI i ;mi ) :.tao ( 1 , I ; N1 )) 

TAOl ( 2» I ;N50 ) = TAU( 2» I ; M50 ) -TI MP ( 2 ; N'50 ) « ( { TAM( 3t I : M50 ) -T AM ( 2 t T :M50) 

I ) / DY+( TAMl ( 2» I !M50 )-TAM2 ( 2 1 1 ) /nZ + TAO( 2 » I ! M50) ) 

TAUl (N1 1 1 )=TAU( N1 » I )-TIMP(N1 )«( ( TAM(M1 ♦ I )-TAM( MlAt I ) )/OY+(TAMl (Ml , 

I I )-TAM2 ( N1 , 1 ) ) /nZ + TAO(Ml 1 1 ) ) 

TAUl ( NJ 1 » I ) = TAIJ( NJl , I )-TI MP( MJl )* ( ( TAM ( MJ3 » I ) -TAM (MJ ♦ I ) ) /nOY+ 

I (TAMl (NJl , I )-TAN2 ( N'Jl »I ) )/DZ + TAO(MJl , I ) ) 

110 AUl (Ml»2, I ;MXMM)=0RVSCATR(TAII1 ( 2 » U Ml A ) , I MT ( 1 ; M14 ) ; A(ll ( Ml , 2 , I ; 
IMXMM) ) • 

CALL VPC2 

on 150 1=1,7 ' ■ 

AUl ( 2 , 1 , I ;M50) = AU( 2 1 1 1 I ;M50)-0T( 2 , 1 ;M50 )*( ( AMn( 2,2, I ; M50 )-AMD( 2, 1 , 
1I;M50) )/DY+(AM(3,l,I; M50 )-AM( 2,l,l;M50))/DZ+A0(2,l,l;M50)) 

150 AUl (Ml, 1 , I )=AU( Ml ,1 ,I )-DT(Ml, 1 )=!'( ( AMO ( Ml , 2 , I ) -AMO ( Ml , 1 , I ) )/DY+(AM( 
IMl, 1 , I )~AN( Ml 1 , 1 , 1 ) ) /nZ + AO(Ml ,1 , I ) ) 

no 120 1=1,7 

AU2 ( 3 , 2 , 1 :NXMM2 ) =AU( 5,2 , 1 ;MXMM2 )+AU( 1 ,2 , I ; MXMM2 )-A.« ( A||( A, 2 , I JMXMM 

12 )+AU(2,2, 1 ;NXMM2 ) ) +6 . « A(J ( 3 , 2 , I ;NXMM2 ) 
tpi(1;m50)=08vgathr(au(i,2,i;mxm7),imt(1;m50);tfi(1;n50)) 

TF? ( 1 ;N50 ) =ORVG ATHR ( All ( 2,2, I ;MXM7 ) , INT ( 1 : M50 ) ; TF2 ( 1 :M50 ) ) 

TR3 ( 1 :N50 ) =ORVGATHR( AIK 3 ,2 , 1 ; NXM7 ) , I MT ( I : M50 ) ; TF3( 1 : N50) ) 

TFA( l;N50)=Q8VGATHR( AU(A,2,I ;MXM7), IMT( 1;M50) ;TFA(l;M50) ) 
TF5(1:N50)=TFA(1;M50)-TE1(1;N50)-3.’1'(TF3(1; M50 )-TF2 ( 1 : M50 ) ) 

AU2 ( 2 ,2 , 1 ;MXM7 ) =QRVSCATR ( TF5 ( 1 :N50) , IMT( 1 : M50 ) ; AlJ2( 2, 2, I ;MXM7 ) ) 

TFl ( 1 ;N50 ) =P8VGATHR( All( M51 ,2, I ;MXM7) , INT ( 1 ;N50 ) ;TF1 ( 1 ;N50) ) 

TF2 ( 1 :N50 ) =OR\/GATHR ( AU ( M50 , 2 , 1 ; MXM7 ) , I NT ( 1 : M50 ) : TF2 ( 1 ; M50 ) ) 

TF3( 1 :N50 )=Q«VGATHR( AU(M11,2,I;NXM7),IMT(1;N50);TF3(1 ;M50) ) 

TFA( 1 :M50 ) =08 VG ATHR ( A(J( Ml ,2, 1 :MXM7 ) , I NT ( 1 : M50 ) : TFA( 1 ;M50) ) 

TF5( 1 :N50 )=TF1 ( 1 ;N50 )-TFA( 1 ;M50 )-3.* ( TF2 ( 1 ;M50 )-TF3( 1 ;M50 ) ) 

AU2 (Ml 1 ,2, 1 ;MXM7 ) =ORVSC ATP. ( TF5 ( 1 :M50) , IMT( 1 :M50 ) ; AU2( Ml 1,2, I ;MXM7 ) 
1) 

AU2 ( 3, 1 , 1 ;M52 ) = AIJ( 5, 1 , I ;M52 )+AU( 1 , 1 , I : M52 I-A.’IM AU( A, 1 , I ;m52 )+AU( 2 , 

11,I:M52) )+6.«AU(3,1,I :M52) 

AU2(2,1,I )=AU( A, 1 ,I )-AU( l,l,n-3.*( AII(3,1 , I )-AU(2,l ,I ) ) 

AU2(M11 ,1,I)=AII(M51,1,I )-AU(Ml,l,I )-3 All ( M50 , 1 , 1 )- All ( Ml 1 , 1 , I ) ) 

AM(2,3,I ; NX MM3) = AUl (2,3,1 :MXMM3)-CC (2,3: NXMM3)’i« 

1(AII(2,5,I :NXMM3)+AII(2,1,I:MXM 

1M3)-A.«( AU( 2,A, I :MXMM3)+AU( 2,2, I :MXMM3) ) +5 . *AI1 ( 2 , 3 , I : MXMM3 ) +AII2 ( 2 , 
23,I;MXMM3)) 

TFl ( 1 ;M52 )=ORVGATHR ( AUl ( Ml , 2 , 1 : MXM9 ) , I NT ( 1 : M52 ) : TFl ( 1 : M52 ) ) 

AM(M1 ,2 , I ;NXM9 )=OR\/SCATR (TFl ( 1 : N52 ) , I MT ( 1 : N52 ) : AM ( Ml , 2 , 1 :MXM9 ) ) 

AM( 2 ,M1A, I ; M50 ) =AU1 ( 2, MIA, I ; M50 )-CC ( 2 , Ml A : M 50 ) « 

1 ( AIK 2,M52, 1 ;M5n)-AII( 2,M1 ,1 :m 

150 )-3.«( AIK 2,N50, I : M50 ) -All ( 2 , N 1 A, I ; M50 ) ) + Al 12 ( 2 ♦ Ml A, I :M50) ) 

AM( 2 ,2,1 ;M50 ) =A|I1 ( 2,2, 1 :m50)-CC ( 2,2;m50 )* 

1(AU(2,^,I :M50)+GM(I )*AU(2,2, 



1 1 ;M50 Al)( 2,3t I ;M«50)+A|I( 2t 1 » I :M50) ) +^>. * ALI ( ? ♦ 2 » I ; M50 ) +AH2 ( 2 , 2 , T 

?;M50)) 

AUl (2»2» I ;NXM6)=AM{2»2tI ;MXM6) 

IF( I .R0.2)G0 TO 120 

Alll (2» 1 , 1 ;M50) = AU1 ( 2,1 1 1 :M50)-CC( 2, 1 ;N'50)* 

1 (2.-AU(2,3,I ;M50)-fi.*AIJ(2,2,I ;M5 
10)+6.*AU(2, 1,1 ;M50)+AIJ2(2, 1,1 ;M50) ) 

1?0 COMTIMUF 

AUK 1 ,2, 1 ;NXMM)=08VSCATR( TFa ( 1 :M14) t IMT( 1 :M14) : Alll { 1 ,2, 1 ;NXMM ) ) 

AUl ( 1 ,2,2;NXMM)=0av/SCATR(TF9( 1 ;N14) ♦ IMTl 1 *,M14) ; Alll ( 1 ,2,2;MXMM) ) 

AUl { 1,2,3;NXMM)=0RVSCATR( TF9( 1 ;N14) , IMT ( 1 J M14 ) ; AUl { 1 , 2 , 3 ? NXMM ) ) 
AUK 1,2,4;NXMM)=0BVSCATR(TF8 ( 1 ; M14 ) , I MT ( 1 : Ml 4 ) ; AU 1 ( 1 , 2 , 4 ; MXMM ) ) 
IFlLTURB.FO.DGn TO 154 
CALL VFC4 
GO Tn 155 

154 CALL VFC3 

155 COMTIMUF 
SS( I )=0. 

00 160 N=2,M14 

160 SS{M) = (S(N+1)-S|M-1) )/XX 

SS(MJ1 )=(S(NJ1+1 )-S(MJ) )/DY/(2.+CURMJl*S(MJl) ) 

SSINI )=-(4.*S(M14)-3.<‘S(Ml )~S(M50) )/XX 
CALL SHOCK 

AU2( 1,1,1 ;NXM10)=AU( 1 ,1 , 1;MXM10)+AII1 ( l ,1 ,1 ;mxmio) 

MM = 2 

nOY=OY’:M2.+CURNJl«S(NJl ) ) 

CALL DFRV 
CALL '/FCl 
no IRO 1=1,7 

AUK 2 ,2, I :NXM5 )=0. 5*{ AU2 (2,2, I ; NXM5 ) -OT ( 2 , 2 ; MXM5 )* ( ( AM{2 ,2, I ;MXM5) 
1-AM(2, 1 , 1 ;MXM5 ) ) /0Y+{ AM( 2,2, I : MXM5)-AM( 1,2, I ;MXM5 ) ) /07. + AQ(2,2, I ; 
2MXM5))) 

IRO AUK2,MJ1, I ;M11 ) = . 5* ( AU2 ( 2 , NJl , I; Ml 1 ) -DT ( 2 , MJ 1 : Ml 1 )=:'( { AM( 2, MJ3, T : 
IMll )-AM(2,NJ, I ;M11 ) )/00Y+( AM{ 2,NJ1 ,I ;M11 )-AM( 1 ,MJ1 , I ;M1 1 ) ) /0Z+ 
2A0(2,MJ1 , 1 ;M11 ) ) ) 

U( 1 ,2;mi )=- u( 1 ,2 :mi) 

CALL VFC2 
no 190 1=1,7 

190 AUK2, 1, 1 ;M11 ) = .5>!'-{ AU2(2, 1, I :M11 )-0T( 2, KMl 1 )*( (AMO (2, I , I :M1 1 )-AMn 
1(2, 2, I; Mil) )/nY+( AM( 2, 1 , I ;mi 1 )-AM( 1 , 1 , I ;mi 1 ) )/nz+AO( 2 , 1 , I;mii ) ) ) 
no 200 1=1,7 

AU2( 3,2,1 :MXMM2 ) =AII{ 5,2 , 1 ;MXMM2 )+AU( 1,2,1 :MXMM2 )-4.« ( All ( 4,2, I : MXMM 

12 )+AU( 2 ,2, I ;MXMM2 ) ) +6 . >!>AU ( 3 , 2 , I IMXMM2 ) 

TEK l;N50)=08VGATHR( AIJ( 1 ,2,1 :MXM7) , I MJ ( 1 ; M50 ) ; TF 1( 1 ? M50 ) ) 

TF2 ( 1 :N50)=08VGATHR ( A|J( 2,2, 1 ;MXM7 ) , IMT ( 1 : M50 ) : TE2 ( l:M50 ) ) 

TE3.( 1 : M50 ) =08 VGATHR ( AIM 3 , 2 , 1 : MXM? ) , I MT ( 1 : M50 ) ; TF3 ( 1 ; M50 ) ) 


TR4{ 1 ;M50 )=QfiVGaTH'^( AIM 4 ,2 , 1 ; MXM7 ) » I MT ( 1 t '^"50 ) ; TP4( 1 * '^'*’0) > 

TF5(1;N50)=TF4(1;M50)-TF1(1;N50)-3.*(TF3(1;M‘50)-TE2(1;N50)) .. 

AII2( 2»2»I :MXM7)=0'?\/SCATR(TE5( 1 ; N'50 ) » IMT U ; M'jO ) ;AII2 (2.2,1 ;MXM7) ) 

TFl ( 1 ;N50 ) =OeVGATHR { AIM M51 1 2, 1 ;MXM7 ) , I MT ( 1 : ) ; TEl ( 1 :M50 ) ) 

TF2 ( 1 ;N50 ) =08VGATHR( AIM M50.2 1 1 :MXM7) , IMT I I 5M50 ) :TP2( 1 5M.50) ) 

TF3 ( 1 ;IM50 ) =ORVGATHR ( AIM Ml 1 . 2. I : NXM7 ) . IMT ( 1 5 M50 ) ; TF3 ( 1 ;M50 ) ) 

TF4( 1 ; N50 ) =0BVGATHR( AU(M1 ,2 . I IMXM7 ) » IN'T( 1 ! M50 ) ;TF4( 1 ;M50 ) ) 

TF5( 1 ;M50)=TF1 { 1 ;N50)-TE4( 1 :M50)-3.*( TF2( 1 : M50 ) -T E3 ( I J M50 ) ) 

AU2(M11 ,2 , 1 ;NXM7 )=Q8VSCATR(TEB( 1 !M50) » IMT ( 1 ; M50) ;AI)2( Mil .2. I,;NXM7 ) 

^AIi2(3.1.I;M52)=AIM5.1.I ;M52)+AII| 1.1. I ; MB 2 ) -4 .* ( Al M 4 . 1 , I : M52 ) +Al)( 2 , 
ll.I;M52) )+ft.*All( 3.1,1 5M52) 

AIJ2( 2.1 .1 )=AII(4,1.I)-AIM 1,1,1 )-3.*( AIM3,1, n-A||(2,l. I ) ) 

AU2 (Mil, 1,1 )=A|j(M51,l,I )-A(M Ml , 1 , I )-3.* ( AIM M50, 1 , I)-AIM Mil , 1 . I ) ) 
AN(2,3,I :NXMM3)=AII1 (2,3,1 :MXMM3)-CC( 2,3; MXMM3)* 

1 ( AIM2 .5, 1 ;nxmm 3 )+Aii( 2, 1. 1 ;mxm 

1M3 )-4.:'.M AIM 2 .4, 1 :MXMM3)+AU( 2 ,2, I :MXMM3 ) ) +(S .*AU ( 2 ,3 , 1 ;MXMM3 ) + AIJ2 ( 2 . 

23.1 ;MXMM3 ) ) - ' 

TFl ( 1 : M5 2 )=v'D 8\/GATHR( AIJl ( Ml .2 , 1 tMXMQ) , I MT ( 1 : M52 ) : TF 1 ( 1 ; M52 ) ) 

ANM Ml , 2 , 1 ;MXM9 ) =08VSCATR ( TF 1 ( 1 ? M52 ) . I MT ( 1 : M52 ) ; AN ( M 1 . 2 . I : MXM9 ) ) 

AKM2.M14, I ;M30)=AU1(2,N1^,1;M50)-CC( 2.M1a;m50)* 

1(AIM2,M52,I ;M30)-AIM2,N1.I;M 

150 )-3.’M AU( 2 ,M50, 1 :M50)-AU( 2.N14, 1 :M50 ) )+All2 ( 2 .MIA. I ;M80 ) ) 

ANM2.2, I ;M50)=Al)l (2,2, I ;m50)-cc(2,2;mbo)=;^ 

1 ( AIM 2 ,4, 1 ;M50 )+GM( I )=:=AIM 2,2, 

1 r;M50 AU( 2 , 3 , 1 ;M50 )+AUC2, 1 , I ; M50 ) ) + 5. *A|M 2, 2 , I ;M50 )+A||2 ( 2 , 2 , I 

2:M50)) 

Alll (2 ,2, 1 ;fViXM6 )=AN( 2,2, I :NXM4) 1 • 

IF( I .F0.2)Gn TO 200 

AU1{2,1,I ;M50) = AUK 2,1,1 ;M50)-CC( 2,1; M50)« 

1 ( 2 .4AIM 2 ,3, 1 ; M50 )-8,*AlM 2,2 . 1 :m5 
10)+6.*AIJ( 2, 1 , 1 ; M50)+AIJ2( 2, 1 , I : M50 ) ) 

200 CnNTIMlJF 

AUK 1 ,2, 1 ;(^XMM)=08\/SCATR( TF8 ( 1 ; Ml 4 ) , I MT ( 1 ; Ml 4 ) ; Al ll ( 1 , 2 , 1 ;MXMM) ) 

AUK 1 ,2 ,2 ;MXMM )=Q8VSCATR(TF9( 1 :M14) , I MT ( 1 : Ml 4 ) ; Al 11 ( 1 , 2 . 2 ; MXMf/i ) ) 

AUK 1 , 2,3;NXMM) =08VSCATR( TF9( 1 ;M1A) , IMT( 1 ; M14 ) ; AUK 1 ,2. 3; MX. MM) ) 

AUK 1 ,2 ,4;MXMM)=Q8VSCATR ( TF8 ( 1 ; M14 ) . I MT ( 1 ; M 14 ) ; All 1( 1 . 2 , 4 ; MXMM ) ) 

IFILTURR'.FO.DGn TO 204 
CALL VFC4 
GO TO 205 

204. CALL -VEC3 . . 

205 COMTIMIIF — ■ .. . 

SS( 1 )=0. 

on 210 M = 2.N14' " 

210 SS(M)=(S(N+1 )-S(M-l) )/XX 

SS(NJ1 ) = ( S (NJl + 1 )-.S (MJ ) ) /0Y/( 2.+CURMJ14S ( MJl ) ) 
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SS(M1 )=-|4.«SIN14)-3.«SIMl)-SIM5n) )/XX 
C^LL SHOCK 
LL=L/500 
LL = LL*'500 

IF(LL.MI?.L)Gn TO 450 
WRITF(^,400) L 
WRITF(ft,405) 

CONi = ? ,>:«TF/ ( ROF^VF^'^^B^RN' ) 
on 250 M=1,M1 

TF(N)=-ZZ«T7.2( l»M)*SIN.a/B2 

nTl = (4.»l«T( 2,N)-3.«T( 1,N)“TI3»M) )/TE(M) 

CHFK = TK(N)»i'CnM*nTl 

CHOIF ( N )=2.«VIS ( 1 ,M)/SI G( 1 »M)/RF«FL*PCI 1 ,M) 

CH(M)=CHFK|Nl)+CHniF(M) 

CF ( M)=2.>1'V1 SI 1 ,NI)*( 0U( 1 fM)-U( 1 »N)’:'CUR I N) / FMOA ( 1 ,M ) ) /RF 
CR|M)=2.>:‘QFXR( 1,M) 

2 50 MRITF (6,420 ) YR ( M ) ♦ S I M ) » I IS ( M ) ,CHniF IM) t CH ( M ) , CF ( M ) , PW ( M ) ♦ CR I M ) 
LL=L/LW 
LL=LL*LW 

IFILL.HF.DGO TO 450 
DO 260 M=1,N1 
WRITF(6,265)N 
WRITF|6,431) 

WRITF(6,440) (ZNiMtM) ,U|M,M) ,\/(M,M) ,P|M,M) tRO(M,M) ,T(M,M) , 

1SH{M,N) ,HI (M,M) ,PC(M,M) tViSTiMtM) ,QFXR(M,M) ) 

260 CONTIMUF 

265 FORMAT!/, lOX, 'BODY STATION M0.=',I4,/) 

275 FORMAT 1 15X , ' E- » , 1 5X , ' H ' , 1 5X , ' HF • , 1 4X , ' C ' , 1 4X , ' 0 ' , 1 3X , ' WM I X ' ) 

280 FnRMAT(7X,6Fl'5.6) 

^00 FORMAT!/, lOX, 'MO. OF I TFRAT I ONS= ' , 14 ) 

^05 FORMAT! /, IX, 'DIST, ALONG BODY' ,3X, 'SHOCK STAMDOFF DI ST . ' , 3 X , • SHOCK 
ISPEED* ,3X, 'DIFFUSIVE CH ' , 3X , ' TOT Al. CH',3X,'SKIN FR I C T I ON • , 3X , 
I'WAjr^L >RFS^SURF'', 3X, 'RAD.HFATImG' ) 

^20 'format !‘3X ; F 10 . 5 , 8X , F 1 0 . 5 , 8 X , F 1 O'. 5 , ^X , F i 1 , 7 ,’4X , F 1 1 . 7 , -^X , F 1 1 . 7 , 4X , 
1F8.5,4X,F11.7) . 

4^.0 FORMAT! 1X,12FI0.5) 

^31 FnRMAT!/,6X,'ZN',9X,'ll',9X,'V',RX,'P',PX,'R0',9X,'T',PX,'H',PX, 

1' SH',7X,' HI « ,7X, 'PC' ,6X, 'VIST' ,7X, 'OFXR' ) 

4S0 L=L+1 

I F ! L .LF .LMAX ) GO TO 1 
no 270 N=1,N1 
WRITF!6,265)M 
WRITE 16,275) 

2 70 WRITE ! 6,280 ) ! CL ( M , M , 1 ) , C L ! M , M , 2 ) ,CL ! M , M , 3 ) ,C L ! M , N , 4 ) , C L ! M , M , 5 ) . 
1'.-IMIX!M,N) ,M = 1,M] ) 

RFWIMD LFO 


ff 

2k 


' ' '? i 


I 


nn 550 M=i,Mi 

'.’IR ITF ( I.Fn, 510 ) S { M ) ♦ TMASS( M) , OS ( M ) t S S I M ) ». CH ( M ) 

WR I TF ( LFO » 690 ) ( l.(( M t N ) t V ( M t M ) t R ( » N ) » T ( N’ » M ) *Rn( M ♦ M ) » SH ( M t M ) tH ( M ♦ M ) « 

H/IS(M,N) ,VISTIM,M)tM=l,Ml) 

'/'RITF{I.Fn,660)(YIl(M»^^»l)tYIl(M♦^U?!)*YIl(^'fM«3)♦YIl(M,^'»5),YTl('^.^| 
1 t 5 ) »Y I 1 ( H »M»6 ) , WMI X ( M»M ) ♦ M=1 » ) 

'•■'R I T F ( L F Cl 1 66 0 ) ( Y 1 1 ( M ♦ M ♦ 7 ) » Y I 1 ( M ♦ » R ) t Y 1 1 ( M . Nl ♦ 9 ) t Y 1 1 ( M » 1 0 ) »,Y 1 1 ( M t 

1 NM 1 ) ,YI 1 (R,M, 12 ) »OFXR ( M,M) »M=1,M1 ) 

WRITF(LFn,660)(YIl(M»Wtl3)»YIl(M»N»lA),YIl(M»M,15)tYTl(f^»Wfl6), 

1YI1(M,^'.17 ) ,YI1 tYI 1(M,M»19) ,M=1 ,M1 ) 

WRITF ( LFO »660 ) ( CL ( 1 ) »CL ( M »M» 2 ) ,CL ( » M • 3 ) tCL ( W, M,4) «CL ( M»M, 5 ) * 

1PQCH(m,M) , PC (M.M) •.•■« = ItMl) 

5 50 COMTIMllF 

510 FORMAT! 10X,5F12. 6) 

5AO FORMATH X,7F15,6) 

690 FORMAT! 1X,9F12.6) 

STOP 

FMO 
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SlIRRnilTIMF SHOCK 
OIMFN'SinN A? ( 1 ,\/MF ( 14 ) 

CriMMOM/ F 1 /M 1 « M 1 4 , M 50 , M52 , M 1 , M 1 1 , M 150 , M J , M J 1 
CnMM0N/F2/NXM ,MXM1 ,MXM3 , MXM4 , MX MR , MXMB ♦ MXM? , MX MM 
CnMMnw/F3/B2»RFtTW,MM,XX,ZZ»FM, RFTA,RM, FL» FIT, JJtOY 
C0MMnM/F5/S( 14) ,SS{ 14) ,G( 14) ,CI)R( 14) tUS ( 14) ♦OS ( 14) tVMI 14) , VS I 14) 
CnMMnM/F6/IMT( 14),THF(14),TIMP(14),TFMP(14),TF{14),TF1(14),TF2I14) 
1 ,TF3( 1^) ,TE4( 1^ ) ,TF5( 14) ,TFM 14) ,TF7l 14) 

Cni-'M0M/F7/l)( 101 1 14) tV( 101 , 14) »Rn( 101, 14) ,H( 101, lA) , PC I 101 , 14) 
CnMMON/CHFOAl/SH( 101,14),T(101,14),P(101,14) ,UIM1X( 101,14), 

1CL( 101 , 14,5 ) 

COMMOM/TRAMS/VTSC 101,14) ,TK( 14) ,STG( 101,14) 

CflMMOM/FR/BTI 101 , 14) ,FMOA{ 101 , 1 4 ) , ZM ( 1 01 , 1 4 ) , R 1 { 1 0 1 , 1 4 ) 
C0MMnM/F9/Sl(-101 ,14) , SS 1 ( 1 0 1 , 1 4 ) , OS 1 ( 1 0 1 , 1 4 ) , Cl IR 1 ( 1 0 1 , 14 ) 

COMMON/ F10/THFC( 1 01 , 1 4 ) , JH FS { 1 01 , 1 4 ) , TVl ( 101, 14) , TV? ( 101,14) 
CnMMON/Fl?/TZ?( 101 ,14) , Z 1 ( 10 1 , 14 ) , TZ 3 ( 10 1 , 14 ) , T Z4 ( 10 1 , 14 ) 
COMMOM/F17/XH2,XHF, ALH, ALHF, AMH,TF,R0F,VF, VISF,SHF, PF 
COMMOM/FIO/TFIK 14) ,C12,PM( 14) , FOCOMS , FOCM ( 101 , 14 ) 

TFll I 1 :M1 )=OfiVGATHR( F0CH(M1 , 1 ;mXM1 ) , IMT( I :N1 ) ; TF 1 1 ( 1 J M 1 ) ) 

A?(1:M1 )=SS(1:mi )/(1.+S(1:mi ) --I'ChR 1 1 :m1 )) 

G( 1 :m1 ) = 1.+A2( 1 :mi)*4?( i;mi ) 

G(l:Ml )=VS0RT(G( l;Ml ):G(1:M1 )) 

TEMPI 1;M1 ) =0«VGATHR ( P ( Ml , 1 : MXMl ) , IMT( 1 : Ml ):TFMP(1;M1 )) 

TF5( 1 ;M1 )=tfii ( 1 :mi )=:-TFMP( l:.Ml ) 

TF6{ 1 :n1 )=( temp ( 1 ;mi )-pf ) /2. 

TF( 1 ;M1 ) = ( TF5 ( 1 :MI )-TF5( ] ;m1 ) ) / ( 5HF + TF(^( 1 ;m1 ) ) 
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VNF ( 1 :mi ) = (-a;? ( 1 ;mi )*\/S( l ;mi )+vm( 1 ;m 1 ) ) /f? (1:^1 ) 

TFl ( 1 ;m 1 )=TF( I : wi )« ( TFMP( 1 ; MD-PF)/ ( TRI I ;N1 )-l . ) 

TFl ( 1 ;m 1 )=. VS0RT(TF1 ( l;Ml ) ;TF1{ 1 ;M1) ) 

US( 1 :N1 )=VNF( 1;m 1 )+TFl ( 1:N1 ) 

TFKI'.MI ) = (l.-l./TF(l;Nl )).*TF1(1!M1 )/r, (1 ;mi ) 

TF2(l:Ml )=VS(l:Ml )-TF1{1 :m1 ) 

tf3(1:mi )=vm(1;mi )+tfhi;mi ) 

TF6( 1 ;m1 )=TF11( 1 ;m1 )'1‘TFMPI 1 :m1 ) /TF( 1;mi ) 

TF7( 1 ;M1 )=TF6( 1 ;m 1 ) + ( TF2 ( 1 : Ml )’!«TF2 ( 1 :n 1 )+TF3 { 1 !M1 )'.'TF3( 1 tMl ) ) / 2 . 
Rn{ Ml » 1 ;IMXM1 )=QFVSCATR ( TE( 1 :n1 ),IMT(1:mi ) ;P.n( Ml , 1 ;mxm1 ) ) 

U(M1 , 1 ;NXM1 )=0«VSC ATR(TF?{ ISMl ) » IMTI 1 :Ml ) : l)( Ml , 1 :MXMl ) ) 

V( Ml , 1 ;MXM1 )=ORVSCATR( TF3( 1 ;m1 )»IMT{1:m 1 ) : V ( Ml » 1 ; MXMl ) ) 
SH(M1,1;MXM1)=0R\/SCATR(TF6(1 ;m 1 )tINT( l:Ml ) ;SH(M1,1;MXM1) ) 
H(mi,1;mxmi)=orvscatR(TF7(i;mi ),imt(i;mi ) ;h(mi •, 1:mxmi ) ) 

IFI MM.F0.2 )GD TO 70 
nS(l;Ml )=t)S(l:Mi )*G(i;Ni ) 

GO in 71 

70 ns(l:Ml ) = (OS(l;Ml )+iiS(1;mi )-.‘Gn:Ml ))/2. 

71 S(1:mi )=S(1:ni ) + ns(l;Ml )»:'TIMp ( l ;mi ) 
nn 7F M=i»Mi 

CL(M1,M,3)=XHF'-;s4.003/AMH 

CL(M1,M,A)=5.F-6 

CL( Ml )=5.F-6 

CL |M1,N,2 )=l.-CL( Ml ^M,B)-1. F-10-1 .F-F 
Sl( 1 ,M:M1 )=S(M) 

s$i(i,m;mi)=ss(m) 

75 OSK 1,m:m1)=DS(m) 

7M( 1 , 1 :mxm)=si ( u 1 :mxm)«( i.-zi ( 1, 1 ;mxm) ) 

FMOA{ 1 ,l:MXM) = l . + ZM( 1 »1:MXM)*CI)R1( I , ItMXM) 

HT{ 1 , 1 ;nxm ) =R1 ( 1 , 1 :mxm)+zm( 1 , 1 ;mxm) ❖thfc ( l , l : mxm ) 

RFTURM 

FMO 

FNn 

SUBRnilTIME FOnY(MT) 

ni MENS ION PF(l4),nPF(14),RLn(14),RLE(14),!IP(l4) tCl.)T2( 101 ) 
CnMMnM/Fl/Nl>M14, M50,M52,M1 ,M1 1 ,M50,MJ ,MJ1 
C n M M n M / F 2 / N X M , N X M 1 , N X M 3 , M X M 4 , N X M 5 » M X M R | M X M 2 ♦ M X M M 
CnMMnN/F3/B2,RF»TW, MM,XX, ZZ, FM, RETA,RM,FLt FLT, JJtOY 
CnMMnM/F7/lJ( 101, 14) ,\/( 101 ,14) ,Rn( 101 ,14) ,M{ 101 , 14) ,PC (101 , 14) 
CnMMnM/CHFQAl/SH( 101, 14) ,T( 101 , 14) ,P( 101 ,14) ,WMIX( 101 , 14) , 

1CL( 101 ,1^,5) 

CnMMnM/TRAMS/VIS( 101,14),TK(14),SIG(101,14) 

COMMOM/FB/BK 101 ,14) , FMOA( 101 ,14) ,7N( 101 , 14) ,R1 ( 101 , 14) 
CGMM0M/F9/SK 101, 14 ) ,SS1( 1 01 , 1 4 ) , OS 1 ( 1 0 1 , 14 ) , Cl IR 1 ( 1 01 , 1 4 ) 

COMMON /F 10/TH FC( 1 0 1 , 1 4 ) , TH ES ( 1 01 , 1 4 ) , T'/ 1 ( 1 01 , 14 ) , T\/2 ( 1 0 1 , 1 4 ) 
CnWMOM/Fll/DU( 101,14) ,DSH( 101,14) , A 4(1 01 ,14) , AR( 101 ,14) 
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CnMMnM/F12/TZ?( l()l»lA)»ZKinitlA)tTZ?i(101,lA)»tZ4{10l,lA) 
CnMMnN/F16/HIMF,RFURF2»SIGTtVIST( 101 ,1 A) 

CnMMnN/F21/A9( 101 » lA) » A10( lOlf’lA) tA13( 101 ,1A) f AAl ( 101 ,1 a) ,AA2( ini , 
llA) 

WT1=MT-1 

NT2=MT+1 

Tvi ( 1 , 1 ;nxm )= vi SI 1 , 1 ;mXm) / siGI 1 ♦ 1 :mxm) 

TV21 1 , l;NXM)=\/iST( 1,1 :mxm)«sig ( 1 ,1 :mxm) / sigt 

A9 ( 1 , 1 :nxm ) = ( 1 .+tv2( 1, 1 ;mxm) )>>=( nSHi i, i jnxm j+u( ] , i ;mxm )« hii( l , l ;mxm 

1 ) ) 

A10(l»l ;NXM) = ( (SIGI 1,1;NXM)-1.+TV2( 1,1 5MXM)>k(SIGT-1. ) )*mi(l,l ;mXM) 
l-UI 1 ,1 ;NXM)*C1)RI ( 1 ,1 JNXM)«SIGI 1 , 1 1 MXM ) / FMOA ( 1 , 1 ;MXM) )«h( 1,1;MXM) 

ai^(1,i;nxm)=(fl-i.+tv2(i,i;mxm)*iflt-i. ) )# pc( 1 , 1 ;mxm) 

AAK 1,1:NXM)=TV1(1,1SMXM)«(A9I1,1;MXM)+A10ll,l 5NXM)+A13I 1,1;MXM) ) 

TVl 1 1 ,1 ;N1XM)=-ZZ’:‘S1 ( 1, 1:NIXM)<«TZ2( 1, 1:MXM )/R2 

AA2I 2,1 ;MXM3) = ( AAl I3,1:NXM3)-AA1 I 1 ,1 ;NXM3) )/TVl (2, 1 :NXM3 ) 

00 70 M=1,M1 
XX1=1./TV1( 1,N) 

AA2( 1 ,N ) = (4,=;'AA1 1 2,M)-3.*AA1( 1 ,M)-AA1 ( 3,M) )*XX1 
XX1=1./TV1|M1,M) 

AA2(M1»N)=-(A.=;=AA1(M11,N)-3.*AA1(M1,M)-AA1(M50,M))*XXI 

70 CONTINUF 

TVl ( 1 ,2 ;NXMA)aAA2( 1 , 2 : MXMA ) + ( CUR I I 1 , 2 ; MXMA ) /FMOA ( I , 2 ; MXMA ) +THFC I 
11 ,2;NXMA) /BTI 1 ,2:MXMA) )*AA1( 1 ,2:MXM4) 

T'/l(l,l ;M1)=AA2( 1,1;M1) + 2./EM0A(1,1;M1 )«AA1I1,1 ;M1) 

TV21 1 ,1 ;mxm)*:vabs( TVK i,i;nxm) :tv2I1 ,1 ;mxm) ) 
on 71 N=1,N1 

71 TVl I 2,Ni;Ml 1 ) = ( TV2I 2,M:M11 )+TV2( 1 ,M;M11 ) )>!c.S=:c( ZMI 2,N':M1 1 )-ZM( 1 ,M; 

1 M 1 1 ) ) 

on 72 N= 1 ,N 1 
AA1{T,N)=0. 
no 73 M=2 ,M1 
J = M-1. 

73 AAl ( M,K| ) =TV1 ( M ,M)+AA 1 IJ ,M) 

72 Cn^'TINUF 

00 3075 M=2,N1 

no 3070 M=15,M11 

CnNS = AAl (M,N) /AAK M1,N>) 

IF(CnMS.GF.0.95 )G0 TO 3072. 

3070 CONTIMUF 
3072 BLF(M)=ZN)(M,NI) 

IIF(N)=IJ(M,NI) 

PF(M)=P(M,M) 

Bl.O(M)=0, 

TFIM.FQ. 1 )G0 tn 3075 
on 3073 J=2,M . 
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^07 3 RL 0 (N ) =RLn( N ) + ( 2,-( U( J1 » M) + IJ( J t M) ) /UE( N) )-'( 7.M( J )-7.M( J1 1 N ) )/?. 

307R CnWTIMDF 

MRITF(6,150) 

150 FORMAK/tlOX, 'RnilMOARY I.AYFR AMO niSPLACFMFNT TH ICKMFSSFS ' , / ) 
WRITFI6, 100) (BLF(M) tBLD(M)>M=2,Ml ) • 

100 FORMAT! lOX, • B ,L .TH ICKMFSS= ' ,F10.5»10X, ' 0 1 S PI. AC FMBMT THTCKMFSS=* » 
1F10.6 ) 

no 3110 N = NT2,K'l 

CUT2(l;Ml )=!./( l.+5.5*(ZN( 1,M:M1)/BLF(M) 

TV? ( 1 »M:M1 )=RE2=i‘RD( 1 ,w; Ml )«l!F ( M)=!'RLn ( M ) *Ci IT2 ( 1 : M ] ) / V I S ( 1 , M : Ml ) 

TVK 1 ,M)=0. 

CUT?. ( 1 :M1 )=VARS( ou( 1 ,m;mi ) :CUT21 1 ;mi ) ) 

Cl)TT = SORT( VIS( 1 tM)«ClJT2( 1 ) ) 
no 3115 M=2»M1 
CUT=CUTT/SORT(RO( M,M) ) 

IITAU = CI)T/RF1 • 

VPUJS=V ( 1 ,N ) /OTAI) 

VPL0S=-VPLUS*5,P 
APIJJS = 26,«EXP(VPLUS) 

CNPU)S = ZN{ M,N )';'Rrj( M»M)*REl/\/l S( M,M)=^'C^JT 

ANPLI)S = CMPLUS/APLIIS 

IF( AMPLl)S.GT.12.)0n TO 311B 

VISTL = .4>:‘ZM(M,I\')’M l.-l./FXP( AMPLIIS) ) 

GO TO 3115 

3116 VISTL = .4=.'=ZM(M,m) 

3115 TVl(M,M)=RF*Rn(M,M)=l=VISTL«VlSTL/VIS{M»M)=:'CllT2(M) 

3137 mb=M-1 

no 3130 M=1,MR 
nVIS=TV2(MtM)-TVl (M,M) 

IFCnviS.LE.O. )G0 TO 3135 
3130 VIST(M,M)=TV1(M,N) 

M = M+1 

3135 MB1=m1-m+1 

3110 VIST(M,N;MR1)=TV2(M»N;MR1) 

RETURN 

FNO 

SORROIITINF SUBI.IM(M1,MXM1,VF,R0F) 

C0MM0N/F6/INT{ 14) ,THF( 14) ,TIMP(14)»TEMP(14),TF(14),TF1(14),TF2(1^). 
1 ,TF3( 14) ,TE4( 14) , TF5( 14) ,TF6( 14) ,TF7( 14 ) 

COMMOM/CHEOA1/SH( 101 , 14) ,T( 101,14) , P { 1 0 1 , 1 4 ) , WM I X ( 101,14), 

1CL( 101,14,5) 

CnMMnN/F23/QFXR( 101 , ) 

C0MM0N7F30/TMASS1 ( 14) , TMASS( 14) 

C0MM0M/F45/CH ( 14) , TWl ( 14) , 

TE( 1 ;ni )=qpvgathr{p ( 1, i;mxmi ) , IMT( 1 ;n1 ) :tf( 1 ;mi ) ) 
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TF ( 1 ;mi )=vALnGio( Tf= ( 1 ;mi ) : Tf=( 1 ;k'1 ) ) 

TFK l;N!l )=TF{ 1 :M1 )»:'TF( 1;W1 ) 

TF,?{ 1 ;M1 )=08VGATHR( CL( It 1 ) ♦ I MT (] ! M 1 ).: TF2 ( 1 : N 1 ) ) 

TF?( 1;M1)=TF2(1;N'1)/.F25 
TF3( 1 ;M1 )=TF2( 1 ;M1 )*TF2( IJMI ) 

TF4( l;Ml )=TF3( 1 ; Ml ) *TF2 ( 1 : Ml ) 

TF5( 1 :M1 )=TF4( 1 ; M 1 ) *TF 2 ( 1 ; Ml ) 

TF 6 ( 1 :M1 ) = 5552 ,-201F4.«TF2( i ;m 1 )+«530F«.*TF3( 1 ; Ml ) -57Q33 . 4TP4 ( 1 f''! ) 
1 + 23243. *TF5( l;wl ) 

TF7( 1 ;M1 ) =179 8 .-12049.4TF2 ( 1 ; Ml ) +30145 .*TF3 I 1 ; M 1 )-3204 5, *TF4 ( 1 ;M1 ) 
1 + 12457. *TF5I l;Ml ) 

TFMP( l;Ml )=322.-2208.*TF2( IJMI )+5270.«TF3( I ;M1 )-5450.*TF4( 1 ;M1 )+ 

12092. ’;=TF5( 1 ;mi ) 

TMl ( 1 :M1 )=TF 6 ( 1 ;M1 )+TF7( 1 ;M1 )*TF{ 1 ;M1 )+TFMP( I;m1)«TF1 ( 1 ;M1 ) 

T F 6 ( 1:M1) =60. 9-190. *TF2( 1 : Ml ) +4R2. *TF3 ( 1 !Ml )-527.«TF4( I : Ml ) +199.* 
1TF5(1:M1) 

TF7 ( 1 ;M1 )= 6 . 10-66. 5*TF2( 1 : Ml ) +141 . *TF3 ( 1 : Ml ) - 1 41 . *T F4 ( I : M 1 ) +5R , 6 * 
1TF5(1;M1) 

TFMP( 1 ;M1 )=-.4+10.7*TF2{ 1 ;M1 )-20.6*TF3( 1 ; Ml ) +1 7. 3*JF4 ( 1 ; Ml ) -6 . 7* 
1TF5( l:^.ll ) 

TF 6 { 1 ;M1 )=TF 6 ( 1 ;M1 ) +TF7( 1 ; Ml ) *TF ( 1 : Ml ) +TFMP { 1 ; Ml ) *TF1 ( 1 ;M1) 

TF 6 { l:Mi )= tF 6 { 1 ;m1 )*1.F6 
C TF 6 (l;Wl) IS IM vJ/KG. 

TF7( 1 :N1 )=08VGATHP( 0FXR( 1 » 1:MXM1 ) » I MT ( 1 : M 1 ) ; TF7 ( 1 : M 1 ) ) 

TF7 ( 1 :M1 ) = ( . 5*CH( 1 ;M1 )-TF7( 1 ;M1 ) )*\/F*VF 
TMASSl ( 1 :M1 )=tF7( 1 ;mi )/tF 6 ( 1 ;mi ) 

RFTURM 

FMO 

SUBRniJTIMF DFRV 

COMMOM/Fl/Nl ,M14,M50»M52 ,M1 ,M11 tM50,MJ ,MJ1 
CnMMnM/F 2 /MXM, MXMl . MX M 3 t NX M4 1 MX M5 t MXMO . M XM 2 . M X MM 
CnMMnM/F3/B2 tRFtTW,MM,XX,ZZ,FM,BFTA,RM,FL tf^LT, JJtOY 
CnMMnM/F7/l)( 101 tl 4 )t\/( 101 tl 4 ),Rn{ 101 , 14 ),M( 101 ,l 4 ),PC( 101 , 14 ) 
CnMMnM/CHFOAl/SH( 101 ,14) ♦T( 101 , 14 ),P( 101 , 14 ) ,WMIX( 101.14). 
1CL(101.14.5) 

CnMMnM/TRAMS/VIS( 1 01 . 14 ) , TK ( 1 4 ) . S IG ( 1 0 1 . 1 4 ) 

CriviMOM/F 8 /BT( 101 , 14) .FMDA( 101 , 14 ) 4 ZM( 1 0 1 , 1 4 ) . R1 ( 1 0] , 1 a ) 
CnMMnM/F9/Sl ( 101 . 1 *) .SSI ( 101 . 14) ,nsi ( 101 . 14 ) ( 101 . 14 ) 

CnMMnM/F 10 /THFC( 101 , 14) ,THFS( 101, 14 ) .TVl ( 101, 14) .T\/ 2 ( 101 . 14 ) 
COMMOM/Fll/niK 101, 14) .OSH ( 10 1 , 1 4 ) . A 6 | 1 0 1 , 1 4 ) . A 8 ( 1 0 1 , 14 ) 
Cf)MMOM/F13/AUl ( 101 , 14,7 ) . THFl ( 101 , 14) .THF 2 ( 101 , 14) . VAIR n 01 , 14 ) .nr, 
ll.( 101, 14,3 ) ,AH( 101 ,14,7) ,AM( 101 , 14,7) ,AM{ 101 , 14.7) .AO( 101 , 14,7) 
Cf)MMnM/F 12 /TZ 2 ( 101, 14) ,Z 1 ( 101 , 14 ) .TZ3( 101 , 14) ,T 74 ( 101 , 14 ) 

C n M M n M / F 1 6 / H I M F , R F I , R F 2 , S I G T , T S T ( 1 0 1 , 1 4 ) 

T'/i ( 1 , 1 :mxm )=-zz*Sl ( 1 , 1 ;mxm)*tZ 2 ( 1 , 1 :mxm ) /r 2 

DIM 2 , 1 ;MXM3) = < IM 3, 1;MXM3 )-D( 1 , 1 ; MXM3 ) ) / TV 1 ( 2 , 1 : MXM3 ) 
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OSH( 2 , 1 ;MXM3 ) = ( SH{ 3 1 1 ;MXM3 )-SH( 1 , 1 :MXW^) ) /T\/l ( ? , 1; MXK'3 ) 
nn 10 1=1,? 

J=l + ? 

nCL( ?, 1, 1 ;MXM?) = { CL( ?, 1 , J;mX'Vi?)-CL( 1, 1 , J;N'XM? ) ) /TVl {?.,! !MXM? ) 
in CnMTIMDF 

TV? ( 1 , 1 :mxm) = ( FL+vi ST( 1 , 1 ;mxim)»:«si r,( i , i ; mxm ) *FLT/S I r-T ) *v IS { 1 , l :mxm) 
1/SIG( 1,1 ;mxm) /RF 
on 70 M=1,M1 
XX1=1./T'/1(1,M) 

nil ( 1 ,m) = (4.>:m){ ?,N )-?.*()( 1 ,M)-ii( ?,M) j^'Xxi 
nSH( 1 ,M) = {4.*.SH( ?,M)-?.*SH( 1 ,M)-SH(?,M) )*XX1 
XX?=1./TV1(M1,M) 

mil Ml ,M)=-(4.*U( M11,M)-?.’M.)( Ml M(50,M) )*XX? 

OSH (Ml ,M)=-(4.*SH (Mil, M)-?.*SH( Ml , M ) -SH ( M50 , M ) )«XX? 
on 20 1=1,3 
J = I+? 

nci.( 1 ,M, I ) = (4..>:cCL( 2,M, J )-3.*CI. ( 1 ,N, J )-CL ( 3,N, J ) )*XX1 
OCL ( M 1 , M , I ) =- ( 4. «CL ( M 1 1 , M , J ) -3 . 4'CL ( Ml , M , J ) -CL { M50 , M , J ) ) >1‘X X2 
20 COMTINUF 
70 CnMTIMIJF. 

nn 30 1=1,3 

30 dcl(1,1,I:mxm) = tv 2{ l,i:NXM)>:=ncm ,1 ,I:mxm) 

ift ( 1 , l;MXM)=vis ( 1 , l: MXM) /RF*( niK 1 , 1 :mxm)-I)( 1 ,1 ;mxm i^.'^cuRl (1,1 ;mxm) / 

1FM0A(1,1;mxm)) 

AR ( 1 , 1 :mxm) = ( i.-zi ( 1 ,1 :mxm) ) /SI ( 1 ,1 ;mxm) .. 

RFTURM 

FMO 

SIIBRnUTINF VFCl 

COMMOM/Fl/Ml ,M14,M50,M52 ,M1 ,M11 ,m 50,MJ ,MJl 
COMMON/ F 2/K'XM, MXM 1 , MXM? , NXM4, MXM3 , NXMR , MXM? , MXMM 
C0MMnN/F3/P2 ,RF,T''! ,MM,XX ,ZZ , FM , B FT A , RN , FL , FI. T , J J ,0Y 
COMMOM/FT/IK 101, 14), V (101, 14), R 0(101, 14), H(10 1,14), PC (10 1,14) 
COMMnM/CHFOAl/SH( 101 , 14) ,T( 101 ,14) ,P ( 101 , 14) ,WMIX( 101 , 14) , 

1CL( 101, 14,5) 

COKMOM/TRAMS/VI S( 101 , 14) ,TK ( 14) ,SI G( 101 , 14) 

COMMON/FR/RT (101,14), FMOA (101,14),7,M(101,14)»R1(101,14) 

COMMON /F9/SK 101 ,14) ,SS1 ( 101 , 14) ,nSl ( 101 , 14) ,CIIR1 ( 101, 1^) 

COMMON/ F 10 /THFC( 101,14),THFS(101, 14 ) , TVl ( 101 , 14 ) , TV? ( 101,14) 
COMMOM/Fll/niK 101,14) ,nSH( 101 ,14) , AO ( 101,14) , Aft ( 101 ,14) 

COMMON /F 12 /TZ2( 101, 14) ,Z1( 101,14) ,TZ3( 101,14) ,T74( 101, 14) 

COMMON /F 13 / AIJ 1 ( 101,14,7),THFl(101,14),THF2(101,14),VATR(ini,l4),nC 
1L( 101 , 14,3) ,AU( 101, 14,7 ), AM( 101 , 14,7 ), AN ( 101, 14,7) ,A0( 101 ,14,7 ) 
CnMM0M/F16/HINF ,RF1 ,Rft? ,S1 GT , V I ST ( 10 1 , 1 4 ) 

C0MM0M/F21 /A9( 101,14),A10(101,l4),A13(ini,14),AAl(l01,14),AA?nni, 
114) 

COMMOM/F23/OFXR( 101 , 14) 
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1 , 1 :MXM ) = ( I ,+\/IST( 1 » 1 ;mxm) )*AA(i, , 1 :mxm) 

Tvi ( 1 , 1 ;MXM) = f;i ( 1 , 1 :MXM)«F'^^nA { i , i :MXM)*«n( i , 1 : n'XM) 

AIM 1,1, 1 :MXM ) = TV1 ( l , 1 :mXm) 

AIK 1 , 1 ,? :HXM) =TV1 { 1 , 1 :mxm) *iK 1 , 1 ;MXf'’ ) 

AIM 1 , 1 ,^:mxm )=T\/1 1 ] , I : MXM)«\/( 1,1: mxm) 

AIM 1 , ] ,4; MXw ) =TV1 ( 1 , 1 : 1 'lXM ) *( H ( 1 , 1 : mxm )-o ( 1 , 1 : mxm ) /t>n ( l , l : a'X m ) ) 

AIM 1 » 1 ,f5;ivXM ) = TV1 ( 1 , 1 :mX'»i )';=CL( l , l ,^;nxm) 

AIM 3 , 1 MXM ) = T\/1 ( 1 , 1 :mXm ) 5;=cl I 1 , 1 ^'XM ) 

AIM 1 , 1 ,7 :MXM ) = T\/1 ( 1 , 1 :mXM )=;-CL( 1 ♦ T , s:mxm ) 

T\/? ( 1 , 1 :mxm ) = s 1 ( 1 , 1 ; MXM ) *Rn( 1 , 1 : ^xw ) *i!( 1 , 1 :mxm ) 

AM( 1 , 1 , 1 ;MXM )=T'/2 ( 1 , 1 :mXm) 

AM( 1 ,1,2;NXM)=TV?( 1 , 1 ; MX f-M >: m i( 1,1 :mxm) + S1 (1,3 ;mxm)«p( 1,1;A'Xm) 

AH( 1 , 1 ,^;mxm )=TV2( 1 , i:MXf/M*\/( 1,1: N'XM) 

AM( 1 ,1 ,4:MXM) = TV?( 1 , 1 :MXf'’)';'H ( 1 , 1 :mxm) 

AM( 1,1,S;MXM)=TV2( 1, 1;MXM)*CI. ( 1,1 ,^:mxm) 

AM( 1 , 1 ,6 :MXM) =t\/2( 1 , 1 :mxm) ’:«CL ( 1 1 1 ,4: MXf'M 
AM ( 1 , 1 ,7 ;MXM )=TV?( 1 , 1 : MXM )*CL( 1 , 1 , 5 :mxm ) 

A9 ( 1 , ? : WXMA. ) = PMOA ( 1 , ; MXM^ ) *THP.S { 1 , ? : MXM4 ) / RT ( 1 . 2 : MX M4 ) 

Aio( 1 , 2 :mxm 4 ) = si ( 1 , 2: MXM4)=;-TMFCl l , 2 :mxm4 ) / bt( 1 , 2 :mxm4 ) 

AA 1 I 1 , 2 ; MXM4) =FMnA ( 1 , 2 : MXM4 ) *RH( 1 , 2 : MXM4 ) *\/( 1,2: MX'^^4 ) 

A 12 ( 1 , 2 :MXM4 ) = AR ( 1,2: MXM4 )« ( ns 1 ( 1 , 2 : MXM4 ) -AIM 1 , 2 , 1 : MXM4 )+SS I ( 1 , 2 ; 
1MXM4 ) *AM ( 1 , 2 , 1 : MXM4 ) ) -A A I ( 1 , 2 : MXM4 ) 

Afj ( 1 , 2 , 1 ; MX M4 ) = T7. 4 ( 1 , 2 : MXM4 ) *A 1 2 ( 1 , 2 : MX M4 ) 

AO ( 1 ,2 , 1 : MXM4 ) = AQ ( 1 , 2 ;MXN'4 )-AP-' ( 1 .2 , 1 : MXH4 ) + A in ( 1 , 2 : MX'-'i4) «AA1 I 1 , 2 : 
1MXM4 ) -TZ 2 ( 1 , 2 : MXM4 ) =:= A 1 2 ( 1 , 2 ; mxm4 ) 

AA2 ( 1 , 2 :MXM4) = AA1 ( 1 , 2 :MXM4)*IM 1 , 2 : MX M4 ) - F '-'nA { 1 , 2 : MXM4 ) ( 1 , 2 : MX«4 

1 ) 

A 1 2 ( 1 , 2 : MXM4 ) = A R ( 1 , 2 : MXM4 ) '-;= ( OS 1 n , 2 : MXM4 ) tt| M 1 , 2 , 2 : MXM4 ) +s S 1 ( 1 , 2 ; 
1P4XM4)*AM( 1 , 2, 2; MXM4 ) )-AA2( 1 ,2:MXf>'4) 

AM( 1 ,2,2;MXM4)=T74( 1 ,2:MXM4)*A12( 1 ,2:MXM4) 

AO ( 1 , 2, 2 :MXM4 ) = AQ ( 1 , 2 : MXM4 ) *AM( 1 , 2 , 2 : MXM4 ) + A1 0 ( 1 , 2 : MXM4 )*AA2 { 1 , 2 : 
1MXM4)+tv2 ( 1 , 2 : MXM4 )-CllRl (1,2: mxm4) - V ( 1 , 2 : MXM4 ) -S 1 ( 1,2: MXM4 )*CMR 1 ( 
21 , 2 :MXM4 )5^'A6 ( 1 , 2 : |MXM4)-P( 1 , 2: MXM4 )*si ( i ; MXM4) >XAq( 1,2; MXM4)- 
2TZ 2 ( 1 , 2 : MXM4 ) =:= A 1 2 ( 1 , 2 : MX«4 ) 

AA2 ( 1 , 2 :MXM4 ) = A A 1 ( 1 , 2 : MXM4 ) =X\/( 1 , 2 : MXM4 ) + FMH a ( ] , 2 : MXM4 )5XP ( 1 , 2 :MXM4 ) 
Al2( 1 , 2 :MXM4) = AR ( 1 ,2 ; MXM4)4( nsi ( 1 , 2 ; MXM4) ssAll ( 1 , 2 , 2:MXM4) +SS1 ( 1 , 2 : 
1 mXM4)5;£A,M( 3 ,2,2:MXM4) )-AA2( 1,2:MXM4) 

AMI 1 ,2,2; NX M4 ) =T7.4( 1 ,2:MX»'44)X'A13( 1 ,2 ;MXM4) 

T\/l ( 1 ,2 :mxm4)=a9( 1, 2:mxm4)»;-ami i , 2 , 2 : mxm4 ) +a lO ( 1 , 2 : vxm4 ) s:=aa 2 ( l , 2 : 
1MXM4 )-Tv/2 (1,2: MXM4 )s;:ciiRl (1,2: ^'XM4) i, ,2 : mxm4) 

AO ( 1 , 2 , 2 : MXM4 ) =TV 1 ( I , 2 : MX.M4 ) -P ( 1 , 2 : MXM4 ) -M A 1 0 ( 1 , 2 : MX!'4 ) X'FMPA ( 
21 ,2 :mxm4)+si ( 1 ,?:mxm4)»ciiri ( i ,2 :mX'' 4 ) ) -T7 2 ( i , 2 : mxm4 ) 12 ( 1 .2 ;mxm4) 
A A2 ( 1 , 2 :mxM4 ) = A A1 ( 1 , 2:mxm4 ) -:5H( 3 , 2 : mxm4 ) -fmo A ( l , 2 : p'Xm4 ) ( p I .S ( 1 , 2 : 

1MXM4) / SIG( 1,2 :MXM4) / RF=;m ( i ,+\/IST( 1 , 2 : mxm 4 ) »:--s IM ( 1 ,2 :mxm4) /siG T )*( ns 
2 H ( 1 ,2 :MXM4)-PC( 1 , 2:MXM4) ) + ( FL + F|.TX-\/IST( 1,7: MXM4 )X<SI (-{ 1 , 2;MXM4 )/SI (; 
4 f )=SPC( 1 ,2 ;MXM4) )+!!( 1 , 2 :mxm4)5;=AM 1 ,2:mXM 4 )-OFXR ( i ,2 ;my v;a) ) 
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,A 13 ( 1 »2 ;NXM4) = AB I 1 ,2;MXM^)«( nsi { 1 ♦2;NXM4)«AI){ 1 »2»4;MXM4)+SSI ( 1 »25 


1KIXM4 ) >;‘AM ( 1 , 2 » 4 ; MXM4 ) 1-AA2 ( 1 ♦ 2 * ^'XM4 ) 

AM( 1 ,2 ,4;MXM4)=TZ4( 1 ♦2:MXM4)«A1'=1{ 1 ,2 ;mxw^) 

AO ( 1 ♦ 2»4;MXM4)=A9 { 1 »2: MXM4)«AM( 1 » 2 » 4; ) + A 1 0 ( 1 t 2 5 MXM4 )❖ A A 2 ( 1 » 2 ; 

1NXM4)-TZ3 ( 1 »2 ;MXM4)»^A13( 1 t2:NXM4) 


nn 10 J=B»7 
I = J-2 


K =; — 4. 

AA?( 1,2;MXM4)=AAU 1 ♦ 2 t>'XM4 ) >:*CL ( 1 ♦2»I ;MXM4)-PMnA{ 1 , 2 : MXM4 ) ❖DCL ( If 2« 

Ik:nxm4) ^ 

Al^ ( 1 , 2 ; MXM4 ) = AP { 1 ♦ 2 : NXM4 ) «( nsi ( 1 f 2 ! MXM ) *All( 1 , 2 f ,1 ; MXM4 ) + SS 1 { 1 f 2 : 
1MXM4)«AM( lt2t J:NXM4) )-AA2( If 2:MXM4) 

ANl(l,2f J:MXM4)=TZ4(l,2:MXM4)’:‘A13(lf2;MXM4) ^ 

A0( If 2, J:NXM4) = A9( 1 ,2;MXM4)«AM( l,2f J;MXM4)+A10( If 2:NXM4)*AA2( I f 
1MXM4)-TZ3( 1 f 2 ;MXM4)«A1^( 1 f 2;MXM4) 

CnMTIMIJF 
RFTU9M 
FMD 

SUBRnilTIMF VFC2 
.niMFMSIOM A20(101) 

CnMMOM/Fl /Ml f Ml A. f M50 f M52 f Ml f W1 1 f M90 f WJ f WJ 1 
COMMON/ F3/B2 fR F » TWf MMf XX f ZZ f FM f BFTA f R NU FL f FLT f J«J f OY 
COMMON/ F7/0 ( 101fl4)fV(l01fl4)fRO(101fl4)fH(l01fl4)fPC(101.l4) 

COMMnM/CHFQAl/SH( 10 1 f 1 4 ) f T ( 1 01 f 1 4 ) » p ( 1 0 1 f 1 4 ) f WM I X ( 101,14) f 
ICU 101 ,1^,5) 

COMMON/TRAMS/VIS( lOlf 14)fTK( 14),SI0( lOlf 14) 

COMMOM/FP/BTI 101,14) , FMnA( 101,14),ZM(101,14),R1(101,14) 
C0MMnM/F9/Sl ( lOlf 14) fSSK 101 f 1^) ,nSl { 101 , 1 4) f ClIRl ( 101,14) 
COMMOM/Fll/nU( 101 f 14) ,nSH{ 101, 14) ,A4( 101 ,14) ,A«{ 101,14) 

COMMON/ F12/TZ2( 101, 14) ,Z1( 101, 14) ,TZB( 10 1 , 1 4 ) , TZ4 ( 1 0 1 , 1 4 ) , 

COMMOM/Fl 3/ AO 1 (101,14,7) ,THFl(101,14),TNF2(10l,14) ,VAIR( 101,14) ,0C 

1L( 101,14,3) , AIM 101, 14,7), AM( 101,1 4,7) ,AM( 10 1,14, 7), AO (101, 14, 7) 


C0MM0M/F15/AMrM 101 ,2,7) 

CnMMnM/F16/HIMF ,RF1 ,RF2,S! GT, VIST (101,14) 
COMMON/F23/OFXR( 101, 14) 


on 100 1=1,2 

A?0(1;MI)=S1( 1,I:mi)*R0(1,I:m1) 

AMO{ 1 , I , 1 ;m 1 )=2.*A20( I :M1 )*0( 1 , I ; Ml ) 

AMO( 1, 1 ,2:mi ) = A?0( 1 ;mi )’M P( 1 , 1 :mi ) /R0( 1 , 1 :m 1 )+2,«o( I , T ; mi )**2) 

AMf)( 1 , I ,3;M1 )=AMO( 1 , I , 1 ;M1 )*V/( I , I :M1 ) 

A.MO( 1 , I , 5:Ml ) =AMO( 3 , I ,l; Ml )*CI. ( 1 ,I ,3:M1 ) 

AMO( I , I , 6 ; Ml ) =AMO( 1 , I , 1 ; Ml )*CL ( 1 , T , 4? Ml ) 

AMO( 1 , I ,7;M1 )=AMO( 1 , I ,1 :m1 )«CL( 1 ,I ,5;M1 ) 

100 AMO( 1 , I ,4;M1 ) = AMO( 1 , I , 1 :m1 )«H( 1, I ;M1 ) 

A20( 1 ;m 1 )=FMOA ( 1 , 1 ;M1 )«R0( 1 ,l : mi ) 

AfvM 1 , 1 , 1 ;mi )=A20( l: Ml )«v( 1 , 1 ;mi )-AR( 1 , 1 ;mI ) ’M nsi ( 1, 1 ;M1 )«A0( 1 , 1 , 1 : 
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I'-Il )+SSl (1,1; M,1 )-:'AMn( 1 , 1 , 1 ;mi ) ) 

AM( 1 , 1 wi ) = A?o ( 1 :mi )'-:M i'( 1 , 1 ;m 1 )*v( 1 , 1 ;mi ( 1 , 1 ;mi ) /Rn( 1 . 1 tMl ) ) 
1-AR ( 1 , 1 ;f'‘l )*(nsi ( 1, 1 ;mi )«Aii( 1 , 1 ,;?;mi ) + ssi ( 1 ,1 ;mi )*AF.n( i ,i ,?;mi ) ) 
oM( 1 , 1 ,^;k1 ) = /> ?0( 1 ;mi )*( \M 1 ,1 ;m1 )«v( 1 , 1 ;f^l ) + P( 1 , 1;mi ) /Rn( 1,1 ;mi))- 
l AP { 1 , 1 ; Ml )*{ nsi ( 1 , 1 ;m! )«A|I( 1 , 1 Ml ) + SSl ( 1 , 1 : Ml )>:‘AMn{ 1 , 1,3 ;m1 ) ) 

AM 1 , 1 ,4tMi ) = A?o ( 1 :hi )*( V{ 1 , 1 ;mi )«H{ 1 , 1 ;mi )- vTS( 1, 1 ;mi )*{ 
insH( 1 , 1 ;mi ) + ( FI.-1. )«PC( 1, i;mi ) )/SlR( 1 , 1 ;mi ) /RF/pn( l ,1 ;mu- 
Ull( 1 , 1 ;mi )»;*A6 ( 1 , 1 :mi )-OFXR ( 1 , 1 ;m 1 ) )/Rn( 1 , 1 ;m1 ) )-AR ( 1 , 1 
?;m 1 I’MDSl ( 1 , 1 ;m 1 )*A1J( l , 1,4 ;m 1 )+SSl( 1 , 1 ;m1 ) AMR ( 1 , 1 , A ; mi ) ) 

A?0( 1 ;mi ) = ^20 ( 1 ;M1 )*\/| 1 , 1 ;m1 ) 

AM ( 1 , 1 , 5 ; M 1 ) = A p 0 ( 1 : M 1 ) «CL ( 1 , 1 , 3 : M 1 ) -nc L(l,l,l:Mi)«(=MnA(l,i;Mi)- 
1 AP 1 1 , 1 : Ml ) ns 1 ( 1 , 1 : Ml ) * AIM 1 , 1 , 5 : M 1 ) +SS 1 ( 1 , 1 ; M 1 ) *AMn { 1 , 1 , 5 : m 1 ) ) 
AM(1,i,6;M1)=A20{1;M1)s'^CL(1,1,4;mi )-nCL I 1 , 1 , :mi )*fmqA (1,1;M1)- 

lAp.( 1 ,1 :mi )>;«( nsi { 1 , 1 :mi )«AiM 1 , 1 ,^>;m1)+SS1 ( 1 ,1 :mi )*amh( l ,l,6:Ml ) ) 

AN( 1 , 1 ,7 ;M1 ) =A20( 1 ; Ml )«CL( 1 1 1, 6;M1 )-nCL ( 1 , 1 ,3 :M1 )5!«FMnA{ 1 , 1 ;^-l )-. 
lA.fi I 1 ,1 ;mi )>;c( nsi { I , 1 ;mI )«AI)( 1 , 1 ,7:M1 )+SSl I 1 ,1 ;mI )*AMn( 1 ,1 ,7;M1 ) ) 

A30 = CI)R1( 1,1 )«S1 ( 1,1) 

AO( 1 , 1 , 1 ; Ml ) = ApOJi'RfM 1 1 1 : Ml )«\/( 1 , 1 : Ml ) + ANM 1 , 1 , 1 ; Ml ) *tZ3( 1 1 1 ;M1 ) 

A0( 1 , 1 ,2;m 1 ) =2,=;=A30=MRn( 1,1;M1)«(M1,1;M1)*\/(1,1 ;mi)-A.^(1,1;m 1)) + 
1AM( I a ,2;M1 )=:=TZ3( 1 ,1 :mi ) 

A0( la ,3 ;mi )=A3o>M-p( 1 a;Mi )+Rn( i,i;Mi)«(v(ia;Mi)*v(ia;Mi)- 
llM 1 , 1 :M1 ) ❖!)( 1 , 1 : Ml ) ) )+AM( I a f 3 :mi )«tZ3 ( 1 , 1 ;M1 ) 

AO ( 1 , 1 , 4 ; M 1 ) = A 3 o=;= ( R n ( 1 a : M 1 ) ❖ V ( I , I : Ml ) «H ( 1 , 1 : M 1 ) - V I S ( 1 , 1 ; M 1 ) * 

1 ( nSH( 1 a :mi ) + ( . )*PC{ 1 a :mi ) ) /rf/sir ( 1 , 1 ;mi )-u( i , i ; mi )*af, ( 1 , 1 : 
IMI )+OFXR ( 1 , 1 ;m 1 ) ) +AM( 1 a t 4;M1 ) *TZ3( 1 , 1 ; Ml ) 

AO ( 1 a , 5 : M 1 ) = A ( R 0 ( 1 , 1 ; M 1 ) * V ( 1 , 1 ; M 1 ) 'i'C L ( 1 , 1 , 3 ; M 1 ) -nr, L ( 1 , 1 a ; m i ) ) 

1+AN( 1 a ,3 :m1 )=:=TZ3( 1 , 1 :mi ) 

A0( 1 a ,6;M1 ) = A30=:M Rn( 1 ,1 :mi )*\/( 1 , 1 :mi ) JSCL ( 1 , 1 ,4; Ml )-nCL ( 1 , 1 ,2 ;M1 ) ) 

1 + AM( 1 ,1,6;M1 )=aZ3 ( 1 , 1 ;.M1 ) 

AO ( 1 a ,7 :M1 ) = A30* { Rn( 1 , 1 : Ml ) *V( 1 , 1 :mi )*CL 1 1 , 1 , R : Ml )-nCL ( 1 , 1 , 3 : Ml ) ) 
1+AM( 1 a »7 ;M1 )»aZ3( 1 , l; Ml ) 

AN( 1 , 1 a :mi )=-TZ.4( 1 a :m1 )«AM( 1 , 1 , 1 :mi ) 

AM( 1 , 1 ,2:m 1 )=-TZ4( 1 , 1 :M1 )«AM( 1 a, 2; Ml ) 

AM( 1 ,1 ,3;mi )=-tZ4{ 1 , 1 ;mi )-1'AM( 1 a ,3 ;mi ) 

AM( 1 a ,4 ;mi )=-TZ4( 1 , 1 :mi )«AM( 1 , 1 ,4; Ml ) 

AM( 1 a,5;Ml)=-TZ4( 1 , 1:M1 )«AN|( 1 ,1 ,5 ;mi ) 

AM( 1 , 1 ,6:M1 ) =-TZ4( 1 , 1 ; Ml )«AM( 1 a ,4: Ml ) 

AW( 1 ,l ,7 :mi )=-TZ4( 1 , 1 :mi )«am( l a ,7 :m1 ) 

PFTIIRM 

RMO 

SIIRROUTIMF VEC3 
oiMFMSinM BCLdOltlA) 

^,nMMn^l/Fl / Ml ,Mi4ai50 , ms?, mi ,mi i , m50,mj , mji 

Cnf«iMf)M/F2/MXM , MXM 1 , MXM3 , MXM4 , MXM'^ , MX MR , MXM? , MX MM 

rOMMOM/FB/H? ,R F , TM, MM, XX , ZZ , FM , BFTA , RM, P(. , F LT , vKI , OY 

COMMOM/FB/IMT ( 14 ) , THF ( 14) ,TI MP { 14) ,TFMP (14),TF(14),TF1(14),TF?(14) 


1 ,TF3( 1^) ,TF4( 14) ,TF5( 1^) lA) »TP7 ( ]>) 

r.n.'ii.'ni'i/cT/ii { loi , 1 4) , \/( i oi » 1 4 ) , ^,n( ic i , ia ) »h { loi , 1 4 ) , pc { 1 oi . 14 ) 

C.n,vu-inM/CHF04 1 /SH ( 101 , ] 4 ) ,T ( 101 , 1 4 ) , P ( 1 01 , 14 ) , WMI y ( 101 , 14 ) , 

1CI. (]01,14,fi) 

Cni/,MriM/TRAMS/VIS( 101 »14) tTKI 14) ♦Sl'U ini ,14) 

CnMfinM/F«/BT (-101,14), FMOA (101,14),7.M(101,l4),Pl(10l,14) 

COMMON'/ F^/ SI ( 101,14),SSl(101»14),nSl(101,14) , Cl IP 1(101, 14) 

COMMON'/ F 10/THFC ( 101 , 14 ) , THFS( 101 , 14 ) , TVl ( 10 1 , 14 ) , TV? ( 101 , 14 ) 
COMMOM/Fl ?/T77 ( 101 ,14) ,Z1 ( 101 , 1 4) ,T7.B( 101 , 14 ) ,T74{ 101 , 14 ) 

CO-iViON'/F 1 7/ Al II ( 1 0 1 , 14 , 7 ) , THFI ( 101 ,14) , THF? ( 1 0 1 , 1 4 ) , VA I R ( 1 0 1 , 1 4 ) , OC 
1 I. ( 10) , 14 , 3 ) , Al I ( 101 , 14,7 ) , AM( 101 , 14 ,7 ) , am ( 101 . 14,-7 ) , AO ( 1 01 , 14 ,7 ) 
COM‘v OM/F17/XH7, XHF, AI.H , AI.H F , Amh , T F , R OF , V F , \/ 1 S F , SH F , PF 
COMmoM/FIP/TF 1 1 ( 14) ,C17,P'-I( 14) ,FOCOMS,'^OCH( 101 ,14) 

COMMOM/F BO/TMASSl ( 14) ,TMASS( 14) 

BIT RCL 

P0( ? , I ;MXM? ) =A1I1 (2,1,1; MXM? ) /SI ( 2 , I ; N'XM? ) /FMOA ( ? , 1 ;r,'XM? ) 

IJ( 2 ,2;n'XM 5 ) = AII1 ( 2 , 2,2:N'XMF ) / All! ( 2, 2 ,1 : mxmS) 

V ( 2 , 1 :N'XM2 ) = AII1 ( 2, 1 , B: MXM2 ) / All) ( 2 , 1 , I : NXM? ) 

TVl ( 2 , 1 : NXM2 ) = ( ll( 2 , 1 ; N'XM2 )*ll ( 2 , 1 ; MXM 2 ) +V' ( 2 , 1 : MXM2 ) *'./ ( 2 , 1 ; MXM2 ) ) / 2 . 
TV2 (2,1 :MXM2 )=A(I1 ( 2, 1,4;N'XM2) /AI!1 ( 2, 1 , 1 ; MXM2 )-TVl ( 2, 1 ;MXM? ) 

P ( 2 , 1 : MXM2 ) = TV/2 ( 2 , 1 ; NIXM2 ) *R.O ( 2 , 1 : N'XM2 ) / ( FOCH ( 2 , 1 :MXM2 ) -1 ,.) 

pi,'( 1 ; Ml ) =opvGATHR ( p ( 2, 1 ;.MXMi ) , IMT ( 1 : M] ) : PW( 1 : Ml ) ) 

P( 1 , 1 :wxMi )=op\/scatR ( PW( 1 :m 1 ) , TN'T( I ; Ml ) : P ( 1 , 1 : mxmi ) ) 

TF ( 1 : Ml ) =03 VGATHR ( WMI X (1,1: N'XNn. ) , I N'T ( 1 : Ml ) : TF ( 1 : Ml ) ) 

TFl ( 1 :M1 )=PW( 1 ;mi )=;'-tf ( 1 :n'1 ) /T'-'/pocomS 

R0( 1 , 1 ; '\'XM1 ) =oh\/scatR ( TFl ( 1 :mi ) , I mt ( I ; Ml ) ; R0( 1 , 1 : mxmi ) ) 

SH ( 1 , 1 ; MXM ) =FOCH ( I , 1: MXM )*P ( 1 , 1 ; MXM) /Ro ( 1 . 1 ; MXM ) 

TF? ( 1 :mi )=TMASS ( 1 ;mi ) /TF l ( 1 :m1 ) 

\/( 1 , 1 :mXM1 ) =0RV.scatR ( TF2 ( 1 ;mi ) , tmt ( I : m) ) ;v ( 1,1: mxmI ) ) 

TF3 ( 1 ) = ( B.*RO( 1 , 1 )«\/( 1 , 1 )+FMOA( 3 , 1 ) -RO ( B , 1 ) «\/ ( B , 1 ) -PH ( I , 1 ) ( 1,1)* 

17.N'( 2 , 1 ) ) / ( 4.:;=RO( 2 , 1 )*FMDA( 2 , 1 ) ) 

no 20 N' = 2,M1 

TFB ( M ) = ( ^ , =;= PPOA ( 1 , M ) *BT ( 1 , M ) *RO ( 1 , M ) 5l«T F2 ( M ) + FMDA ( -^ , M ) *BT ( B , M ) 

1R0( B , M ) *V ( 3 , M ) ) / ( 4. *FM0A( 2 , M )*RT( 2 , M) *R0( 2 , M ) ) 

20 CON'TIMIIF 

'/( 2, 1 :MXM1 ) =0«\/SCATR ( TFB( 1 :M1 ) t Imt( 1 ;m1 ) ;\/( 2, 1 ;N'Xmi ) ) 

H ( 1 , 1 : MXM ) = SH ( 1 , 1 ; MXM ) + ( ','( 1 , 1 ; MXM ) I ( 1 , 1 : MVM ) + v ( 1 , 1 : MXM ) *v ( 1 , 1 ; MXM 
1 ) )/2. 

CL( 2 , 1 ,B:mxm2 ) =AI)1 ( 2 , 1 ,5:mxm? ) / A! U ( 2 , 1 , 1 : mxm2 ) 

CL ( 2 , 1 , 4 :mxm 2 ) = Ai II ( 2 , 1 , 6: MXM2 ) / AOl ( 2 ,1 , 1 : MXM2 ) . 

CL( 2 ,1 ,5:MXM2 )=A|I1 ( 2, 1 ,7:MXI^2 )/Alll ( 2 , 1 , 1 : MXM2 ) 

00 10 M=1,M1 

ABC = -TMiASS ( M ) *Sir,( 1,M)*RF/VIS( 1 ,M) /FI./B2* SI (1 ,m)*T72( 1,M)*77/2. 

CL (1 ,M, B ) = ( CL ( 2 , M, B ) + ABC’:'5. F-4) / ( 1 , +ABC ) 

CL( 1 »M,4)= (CL ( 2,m,4)+ABC*.Q2S )/ ( 1 ,+ABC ) 

CL( 1 »M, B )= ( CL( 2,M,5 )+ABC*0.05) /( 1 .+ABC ) 
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10 CnhiTIMIlF 

CLHFF = XHF»;<A.nO?/AMH 

HCL(l,l:MXM)=CI. ( ia.B:MXM),GT.CI.HCF 

Cl. ( 1 »1 «:^;mxm) =ofvctri.{ CL'-'FF ,BCI. ( l , l ;mxm ) ;CL ( l , l ,b;mxm) ) 

H.CL(l,l;^'X^^)=CI. { 1»1,4:MXM).GT..‘^?5 

Cl. ( 1 »1 tA.:MXM) =orvctRL (0.9;?5 ,HCU 1 , 1 ;mxm ) ; CL ( 1 ♦ 1 . a:mxm ) ) 

HCL ( 1 , 1 :mxm)=CL ( 1 , 1 , '5:mxm) . r,T. .os 

CL( 1 .1 »S:MXM) =c« './CTRL (0.050 ,HCL ( 1 1 1 ;N'XM) ;CL ( 1 1 1 ,5;MXV.) ) ■ 

KCL ( 1 ♦ 1 ;MXM ) =CI. ( 1 , 1 fRS WXM) . LT. 5. P-B 

CL ( 1 , 1 1 3 : MXiM ) =0» '/c TRI. ( 5 , F-A » HCL ( I ♦ 1 : MXM ) ; CL ( 1 , 1 , 3 ; w VM ) ) 

HCl.n tl ;MXW)=CI.( 1 » 1 ,4:MXM) .LT. 5.P-/^ 

Cl.( 1 »1 »^:MXM) =O.R\/CTRL( 5.F-B»«CL( 1 »1:MXM) ;CI.( 1 , 1 ,-i;A'Xrv) ) 

HCL ( 1 , 1 : N'X M ) =CL ( 1 » 1 » 5 : MXM ) . L T . 5 . P-/=> 

CL ( 1 ♦ 1 ♦ 5 : MXM ) =OR\/c TRL ( 5 . p- 4 , rtCL ( 1 , 1 : mxm ) : CL ( 1 , 1 1 5 ; mxw ) ) 
CL(1»1,2;MXM) = i.-cL(1»1,1:mXM)-cl(1»1»3:K'Xw)-CL(1,1.^;mxm)- 
ICL( 1 »1 »5;n'Xm) 

QFTIIRW 

FMO 

SURRmiTIMF '/FCA 
ni MFN'S I OM .RCL (101,14) 

COWr-'.mi/ F 1 /M 1 , f'i 1 A , M5 0 , MR? , Ml , Ml 1 , M50 , M J , M J 1 
C n M M n M / F 2 / M X !■'’ , N X M 1 ♦ X M R , M X M 4 , t> ' X M R . M X .V, R , M X .V; ? , M X M M 
CnMMpM/F3/K? ,R p , T'*', MM, XX , ZZ , FM, RFTA ,RM, PL , FLT , J J , OY 

CnMMnM/F6/IMT( 14) ,THF( 14) ,TI'^'P( 14) ,TFMP{ 14) , T P ( 1 4 ) , T F 1 ( 1 4 ) , T F 2 ( 1 4 ) 
1,TF3(14 ),tF4(14),tf5(14),TPR(14),TF7(14) 

COMMOM/FT/IM 101 , 14) , V( 101 , 14) ,Rri( lOl ,14) ,H( 101 , 14) , PC (10 1 , .14)= 

CnMMnM/CHFOAl/SH( 101 , 14) , T( 101 , 14) , P( ] 01 , 14 ) ,MVI X{ 101 , 14) , 

1CI.( 101 ,14,5) 

COmmOM/TRAMS/'/I S ( 101 , 1 4 ) , TK ( 14) ,.s I 0( 1 01 , 14 ) 

CriMMDM/FF/RK 101,14) ,PMnA( 101 , 14) , 7M{ 101 , 1 4) ,p 1 { ] 01 , 14) 
CnMMnM/F9/Sl( 101, 14) , SSI ( 101,14) , ns 1( 101 ,14) , Clip 1 ( 101,14) 

COMMOM/Fl 0/THFC ( 1 0 1 , 1 4 ) , JH FS ( 1 0 1 , 1 4 ) , TV 1 ( 1 0 1 . 1 4 ) , T'/2 ( 1 01 , 14 ) 

Cnv'r.inM/F12/TZ?( 101, 14) ,7.1 ( 101 , 14) ,TZ3( 101 , 14) ,tZ4( 101 , 14) 
COMMOiM/FIB/AIII ( 101 , 14,7) ,THP1 ( 101 ,14) ,THF? ( 1 0 1 , 1 4 ) , V A 1 R ( 10 1 , 1 4 ) , DC 
1 L ( 101 , 14,R ), AIK 101 , 14,7) ,AM( 101 , 14,7) ,AM( 101 , 14,7 ) ,A0( 101 , 14,7 ) 
COMMOM /F 1 7/XH?,XHF,ALH,ALHF,AMM,TF,RnF,VF,VISF,SHF,t>F 
C0MM0M/F19/TF11 ( 14) ,C12,PW( 14) , FOCHMS , POf.M ( 101.14) 
CnMMnM/F30/TMASSl ( 14) ,TMASS( 14) 

HIT RCL 

R0( ? , 1 :MXM5 ) = AKl ( ? , 1 , 1 :MXM5 ) / SI ( 2 , 1 ; MXmr ) / FiVOA ( ? , 1 ; MXM 5) 

II ( 2 , 2 ^'''XMR ) =All] { ? , 2 , 2; MXMR ) /Alll ( ?, 2, 1 ; MXMR ) 

V( 2 , 1:mXM5 ) = AM1 ( 2 , 1 ,3:mXm 5) /Aiil ( 2, 1 , 1 tMXMtj ) 

TVl ( 2 , 1 ;MXM5 ) = ( 1 1 ( 2 , 1 ; MXM5 ) *1 1 ( 2 , 1 : MXMF ) +\/ ( 2 , 1 : MXM5 ) ❖V ( 2 , 1 : MXM5 ) ) / 2 . 
TV2 (2,1 :mXM5 ) =AII1 ( 2 , 1 ,4: MXM5 ) / AI!1 ( 2, 1 , 1 :mxmr )-TVl ( 2 , 1 : mxms ) 

=>(2,1 :MXM5 ) =T'/2 ( 2, 1 ; MX m5 ) ^I'RO ( 2 , 1 : mxm«s ) / ( foch( 2,1: mxmr )-l. ) • 

SH( 2 , 1 ;mxm5 ) =POCH{ 2 , 1 :mxm 5 )"'P ( 2 , 1 : ^'XM5 ) / Rn ( 2 , 1 :mxmr ) 
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CL(?a t3;MXM5)=Alll(2,l. »‘5 ;mXH5)/AI(1 (?,1 ,1 ;mxM 5) 
CL(2»l»A;MXM5)=Al)l(2»l»ftlMXM5)/aill(?»l»l!MXM5) 

Cl ( ? » 1 t5 ; MXM5 ) = Alll I 2 ♦ 1 »7 tMXMfi ) /Alll ( 2 » 1 » 1 ; NXM5) » 

II(*2,|V1 ;M11 )=2.=i*l)l2»Nl4:Mll )-2 .':mi( 2»M50;m 1 1 ) + .5-''ll(2«'''‘’2;f 11 ) 

V( 2 »N1 ;M1 1 )=2 Ml 1 )-2.«V( 2 »M50 : Ml 1 ) + . 2 »N'52: Ml 1 ) 

O ( 2 ,W1 :M1 1 ) = 2. ( 2 ,^'14;M11 )-2.*P ( 2 tM50: Ml 1 ) + , 5*P( 2 tN'S? ;M] 1 ) 

SH I 2 .Ml : M 1 1 ) = SH ( 2 t Ml^ ; Ml 1 ) *2 . *^-2 .«SM ( 2 , M50 ; M 1 1 ) + . S»SH ( 2 , N“i2 J MU ) 
Rn(2,Ml;Mii)=FOCH(2.Ml:Mil)«P(2.wi:Mil)/SH(2,Ml:Mii) ' 

CL(2t,m 1 t3:Mll ) = 2.S*CL( 2,M1A,3;M11)-2.*CL( 2,M5n,2:Mll ) + .F-.«CLI 2.M52. 

^ ClVJInI »4;M11 )=2..5*CL(2tMlAt4:Mll )-2.«CL ( 2 ,M50 , 4 ; M 1 1 ) + . *5*CL ( 2 t N'52 , 

1 : M 1 1 ) 

CL(2»N1,5;M11 )=2.S5J=CL(2tM14t5:Mll)-2.«CL ( 2 , M50 , F ; M 1 1 ) + . 5#CL ( 2 t M52 » 

1 5 ? j 1 1 ) 

TF3 { 1 ) = ( 3 •'■'TM A SS { 1 ) +FM0A('^«l)*Pn<3,l)*V(3tl)“Pn(ltl)MV(l»l)- 

1ZM(2,1 ) )/(4.*Rn(2,l )*FMnA(2tl) ) 

on 20 M=2.M1 , ,, 

jp::i(M ) =( 3.*FMnA( 1,M)«RT( 1 .M)*TMASS ( M) +FMnA (3 »m)*BT(3,M)- 

IRfl ( 3 , W ) ( 3 » M ) ) / ( 4.5’^ FMDA ( 2 »M ) JisRT I 2 »M ) =:‘Pn ( 2 . M ) ) 

20 COMTIMDF 

\/( 2 , 1 :NXM1 ) =0RV/SCATR ( TF3 I 1 ;M1 ) 1 1 MT ( 1 :mI ) ; 'M 2 . 1 : MXMl ) ) 

TF ( 1 :N'l ) =0P VGATHR ( WMI X ( 1 , 1 ; MX^l ) . I MT( 1 ; Ml ) 5 TE ( 1 !Nl ) ) 

TFl ( 1 : Ml ) =03VG ATHR ( P ( 2 ♦ 1 ;MX.m 1 ) ♦ I MT ( 1 ; Ml ) ; TFl ( 1 : Ml ) ) 

TF2 ( 1 ; Ml ) =0« VG ATHR ( P ( 3 . 1 : MXMl ) . Imt( 1 ; Ml ) ; TF2 ( 1 :mi ) ) 

TP4| 1 ;M1 ) =00vGATHR ( V ( 3.1 ;MXM1 ) » IMT( 1 :m1 ) ;TE4( 1 ;M1 ) ) 

TF5(] :M1 ) = {TMASS( 1;M1 )^‘(4.*TP3( 1;M1 )-TF4( 1;M1 ) ) +4.-^'TFl m Ml )-TF2 (_ 
11;M1))/3. 

TF4(1 :M1 )=TF(] :mi )/TM/FOCnMS 

TFT ( 1 : Ml ) =T'MA SS I 1 ; Ml ) *TMASS ( I : Ml ) /TFM 1 : Ml ) 

PM( 1 ;M1 ) =TF5 1 1 ; Ml )=:=TF'i( 1 : Ml )-4.=:=TF7 ( 1 : Ml ) 
pii( 1 ;M1 ) = VSORT ( P'M 1 ; Ml ) ; pw( 1 : Ml ) ) 
pw( 1 ;mi ) ={ TF 5( 1 ;M1 ) +PW( 1 : Ml ) ) /2. 

TFi ( 1 : Ml ) =PW ( 1 : Ml ) * tF4( 1 ;mi ) 

TF2 ( 1 ;m1 )=TMASS ( 1 ;m 1 ) /TEl ( 1 :mi ) 

p ( 1 . 1 :MXMl ) =QPVSCATR ( PW( 1 : Ml ) , IMT( 1 ; Ml ) : p ( 1 . 1 ; MXMi ) ) 

RH( 1 , 1 ;mxmi ) =P3VSCATPv( TFl ( 1 :mi ) . JMT( 1 ; Ml ) :Pn( 1 ,1 :mxmi ) ) 

v( 1 ♦ 1 :MXMl ) = o«vscatR( T= 2 ( 1 ;Mi ) . T MT 1 1 :mi 1 ; v( 1 , 1 :mxm 1 ) ) 
on io"M=i,Mi 

SH ( 1 , M ) = FOCH ( l . M ) s:«PM ( w ) /tF 1 ( M ) 

A BC =-T M A S S ( W ) *•' S I G ( 1 ♦ M ) =l'-R F / '/ 1 S (1 . A' ) / P I. / R 2 S 1 ( 1 , M ) ❖ T 7. 2 ( 1 . M ) sic 7 7 / 2 . 

CL(1.M,3)=(CL(2.m.3)+ABC*5.F-4)/(1.+ABC) 

CL ( 1 »M, 4 ) = ( CL ( 2 . )+ABC«.P23) / ( 1 . + ARC ) 

CL ( I .N ♦ 5 ) = ( CL ( 2 . M, 3 ) +ABC*0 .03 ) / ( 1 .+ABC ) 

10 COMTIMIIF 

HI 1 ♦ 1 ; MXM ) =SH ( 1 , 1 ; MXM ) + 1 HI 1 , 1 ; MXM ) *') ( 1 . 1 ; mxm ) + v I l . 1 ; mxm ) *v ( i , ) ; mxm 
l))/2. 
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CLHPF = XHF»:«4. 00?/ AMH 
^Ci.( itit?;''"XM) 

CL ( 1 » 1 t ^ :^'XW )='^>'’'/CTRL ( CLHPF, RCL( 1 , 1 ; ■'IX^^) :CL ( 1 , 1 ) ) 

hCL( 1 , 1 :n'Xi/)=cl{ 1,1,4:mx.m) 

CL ( 1 » 1 .4;NXM )=0«VCTRI.( 0.9 25 , «CL ( 1 » 1 : MX M ) ; CL ( I ♦ 1 . 4 ; n>xm ) ) 

HCL( 1 » 1 :mxm ) =CL ( 1 * I »5:mxm) .(-T. .05 

CL ( 1 1 1 « 5 :WXM )=OS\/CTRI.( 0.050 , RCL ( 1,. 1 : MXM ) : CL ( 1 . 1 ♦ 5 : WXM ) ) 

HCL( 1 1 1 :mxm) =CL ( ] . 1 ,?;MXfO .1,1.'^.'=-'=' 

CL ( 1 1 1 ♦? :mXM )=nfi\/CTRL( 5.F-5,KCL ( 1 . 1 : mxm ) : CL ( 1 » 1 ,? :mxm ) ) 

HCU 1 . 1 :NXM)=CL ( 1 » 1 »^‘;MXf>' ) .LT.5.F-5 

CL ( 1 » 1 ,4;MXM )=0>"\/CTP.L( 5.F-5,HCL ( 1 , 1 : MXM ) ; CL ( 1 » 1 ,4;mxm ) ) 

*^CL( I » 1 ;mxh)=CL ( I » 1 ,5;mXm) ,i_j.5.f-5 

CL ( 1 » 1 » 5 ;mXM ) = ''PWCTPL ( 5.F-6,5CL ( 1 . , 1 : MX v, ) ; fj. ( l , l , c ;mxm ) ) 

CL( 1 » 1 »2. :mXM) = 1 .-CL ( 1 f 1 1 1. :mXM)-CL( l . 1 1 ?;mvm) -CL ( 1 . 1.4;Myf/)- 
ICL ( 1 » 1 » 5 ;mxm ) 

RFTURM 

FN'O 

SlIRRnilTIMP THFROn 

C FRFF FImfRGY, FWTHALPY, AMH SPFCIFIC MFAT BY A P PR OX I MAT I MG POL YMOM I AL STM FR 00?0 
HFAL Mni.FF 

OIiAPMSIOtM CPU ( lOlt 14,19) ,FMT( l-01tl4,lQ) 

OIPFMSinM BG( 101,14) 

c n M M n iM / F 2 / M X M , IV X M 1 , M X M ? , M X M 4 , M X M 5 , M X M F , M X M 2 , X m M 

COMMON! /FIO/THFC ( 101 , 14) ,THFS( 1 01 , 14) ,T\/1 { 101 , 14) ,T'/2 (101,14) 

COMMOM/FIB/AIJI ( 101, 14, 7 ) ,THF1 ( 101 , 14) , THF? ( 1 01 , 14 ) ,\/AIR ( 1 01 , 14) ,nC 
1L( 101 , 14,? ), AIM 101 , 14,7) ,AM( 101 , 14,7 ) ,AM( 101 , 14,7) ,AO( 101 , 14,7 ) 
C0MK0M/F21/A9{ l01,14),A10(101,14),Al?(101,14),AAl(ini,14),AA2(101, 

114) 

COMMOM/CHFOM/MF , MS , MA , MM 

COMMOiM/CHFOAI /SH( 101 , 14) ,T( 101 , 14) ,P( 101 , 1 4) ,I,IMIX( 101 , 14 ) , . 

1CL( 101 , 14, 5 ) 

CnMM0M/CHF0A2/RH( 101,14,19) ,MOLFF( 101 , 1 4, )o ) 

CO-''-iniM/CHFOH/ AI ( 20,? ) ,rtl ( 20,5 ) ,CI ( 20, 9 ) , ni ( 20,? ) ,FI ( ?0,? ) , 

. FI ( 20,? ) ,G I ( 20 ,?) 

COmMOM/CHFOO/FORK 101 , 14, 19 ) ,Y( 101 , 19) , X( 101, 19) , YBAR ( 1 01 ) 
CnMMnM/CHF0H?/CPI2 ( 101,14,19) 

FOIIIVALFMCF (CPI 1 ( 1 , 1, 1 ) , ADI ( 1, 1 ,1 ) ) , { 9MT( 1 , 1 , 1 ) , AM ( 1 , 1 , 1 ) ) 

OFSCRIPTflR 0Al,nA9 
BIT BG 

C CPFFFICIMTS ARF ImpDT FOR THRpf TFMRcratmRF RAMf;FS. (1) ?00K TO 

C lOOOK, (?) lOOOK TO 5000K, AMn (?) 4000K TO 15000K. K AMn I. 

C OFMOTFS THF SFT OF CHFFFICTFMTS THAT ARF BFIMG MSFO. CHmbimf TO 

C ASSDRF SMOOTH TRAMSITTOM BFTHFFM FACH OF THF THRFF TFMPFRATDRF 

C TMTFRVALS , T IS GF^'^RALLY GRFATFR THAM 4500K. 

R R = 1 . 9 B 7 

BG( 1 , 1 :MXM)=T { 1 , 1 ; MXM) .LF.5500. 
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ilSSIGM nAQ,A9( 

0A9=0«VCWPRS I T( I » 1 ; MXM ) ♦ BG( 1 , 1 ; MXM ) ;nAP ) 

L1=09SLPM( nA9) 

^G(l,l;Ln=A9(l,,l:Ll).LF. 5500. 

ASSIGM OAl ,A10( 1 .1 ;MXM) 

nAl=nP,vCMPPS ( AQ { 1 , 1 : LI ) ,RG| I , I ;L1 ) :0A1 ) 

LP=0«SLFM( OAl ) 

AAl ( 1 ,1 ;L? )=nAl*OAl 

AA?{ l,l:L?) = nAl^'AAl(l,l;L2) 

An(l,l;L2)=AAin,l;L2)*AAl( l,l;L2) 

TV? ( I ;l? )=VALnG{nAi :TV? 

TV? (1,1 ;L2) = 1.-TV? (1,1:L?) 

no If) 1 = 1, MS 

CPI?( 1 , l , I :L2) AI { I , ? )+Rl ( I , ? )>;jnAl+CI ( 1 ,2 )*AA1 ( l , 1 ;L? )+ni ( 1 ,2 ) 

1*AA2( 1 ,1 ;L2) + PI ( I , 2)-An( 1 , 1-;L2) ) 

FORT( 1 , I ,I ;L2)=AI ( I ,?)❖ T\/2( 1, 1;L2 I( I , 2 )*nAl-C I( 1 , 2 )*AA1 (1 , 1 

1:L2 )/6.-r)I ( I ,? )»:=AA2( I ,l ; L2 ) /12.-FI ( I , 2 ) -0 . 05*A 1 R { I , 1 ; L 2 ) +F I ( I , 2 ) / 
?IU1-GI(I,2) ' ■ 

FMT { 1 , 1 , 1 ;L2 ) =PR=^'0A1*( AI { I ,2 ) + .5-FI ( I , 2 ) *nA I +C I ( I , 2 ) =:^A A 1 ( 1 , 1 ; L2 ) / 5 
l.+ni ( I ,2 )=:^A2( 1, 1 ;L2)/^. + FI (I , 2)>:=A15( 1 , 1 ;L2 )/5. + FI( 1 ,2 )/OAl ) 

10 COMTIMUF ' 

rtG(l,l:Ll)=A9( 1,1 ;l 1).GT.5500. 
nAi = oevcMpps( A9( 1 , i;Li ) ,RG( 1 , l:u ) ;nAi ) 

L5=nFSLFM( nAl ) 

AA1( l,l;L?)=nAl*nAl 

AA2( 1 ,1 ;L3 )=DA1*AA1 ( 1 , 1 :l?) 

M3( l,l;L3) = AAl{ 1,1:L3)=:=AA1( 1 ,1 ;L3) ■ . .. 

TV2( 1 , 1 ;l.3 )=VALOG( DAI ; T V? ( 1 , 1 ; (. 3 ) ) 

TV2( 1 ,1 ;L3)=1 TV2(1,1:L3) 
no 20 1=1, MS 

TVl ( 1 ,1 ;L3 )=PR'-M ( 5. 5-.001»DAl ) * ( A I( I , ? ) +R I ( I , 2 ) Al +C I ( I , 2 ) ’'-A A I ( 1 
I , I :L3)+ni ( I , 2)-'AA2( 1 , I ; L31+FI { I ,?)^'A13{ 1 ,1 ; L3 ) ) + ( .001’;~nAl-5.5 )'M AT 
?( I ,3 )+Rl ( 1 ,3)«nAl + CI ( 1 ,3 )-AA1 ( 1 , 1:1,3 )+ni ( I ,3 )=;«AA2( 1 . 1; L3 )+FI ( I ,R)« 
3A13(1,1;L3) I ) 

C? 1 1 ( 1 ,1 , I :L1 )=ciRVMfiRG( TVl ( 1 ,1 *.L3 ) ,CPI2 ( 1 ,1 , 1 :L?) ,RG ( 1 , 1 ;L1 ) ; 

ICPI 1 ( 1 , 1 , T :i.l) ) 

TVl(l-,i:L3) = ((W-5~.001*nAl)«(AK I,2>=4' TV2 ( 1., 1 ; L 3 ) - , 5=;=B I ( I , 2 ) *0 A 1- 
VCI (I ,T)*AA1 { 1, 1 ;L3)/6.-ni ( I ,2)=i'AA2| 1,1 ;L3) /12.-FI ( T , 2 ) . 0 F* A 1 3 ( 1.1 

2:1.3 )+FI ( I ,2)/nAl-GI { I ,2) ) + ( . 001 >'.'nA l- F . S ) « ( A I ( 1,3)-^= TV2( 1 , 1 ;L3)-0.5 
3*HI ( I ,3 )*nAl-CI ( I ,3)=l=AAl( 1, 1:L3) /6.-DI I 1 ,3 )«AA2 ( 1 , 1 ;L3 ) /12.-F r ( T 
4)=;‘.05*A13( 1 , 1 ;l.3 ) + Fl ( I ,3 ) /OAl-GI ( I ,3 ) ) 

FH ( 1,1 , 1 ;L1 )=o«vmfRG( TVU 1,1 : L3) ,F0RT( 1 ,1 , l: 1.2 ) ,HG(1 , 1 ;L1 ) ; 

1FH( 1 ,1, I ;L1) ) 

TVl I 1 , 1 ;L3 )=RR’^-nAl^M ( 6. F-.OOI'-KOAI )«( AI { 1 ,2 ) + .S«h i( t ,2 ) *nAl+CM I , 2 
l)=!=AAl(l,l;L3)/3.+ni(I,?>>;'AA?(l,l:L^)/4. + FI(I.2)='.= A12(l,l;L3)/5.+ 

?FI { I ,2)/nAl ) + { .001=:-'nAl-5.5)*( AI ( I , 3 ) + .5*RI( I , 3 ) =:< 0 A 1 +C T ( 1 , 3 ) -a A 1 ( 1 , 
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31. ;L‘=i)/3,+0I(I»?)-AA?(ltl:L3)/'f‘. + PT(If‘^)’'‘Al^lT,l:L3)/‘i. + Fni»‘=')/ 
40AD) . . 

<'ni.FF { 1 » 1 1 1 ! LI ) ='"'^'VMFC! G{ TVU 1 ♦ 1 ; L3 ) ♦ fn!T ( 1 ♦ 1 f I : L2 ) ♦ F(;( 1 , 1 ;L1 ) : 
l'v;nLFF{ 1 ♦! »I ;l. 1 ) ) 

30 COMTIWIIF 

•^G( 1 »1 :MXM)=T{ 1 1 1 ;nXM) .GT.^^^vOO. 

OAi=QF'/CMPRS ( T( 1,1; MXM) ,H<;( 1 , 1 ;mxm) ;oai ) 

L2=OOSI.FM{ HAl ) 

AAK ia;u;?)=nAi*nAi 

AA3( i,i;L2)=nAl*AAi( i,l;l.2) 

a 13(1,1:L2) = AA1(1,1 ;L2)*AA1( l,l:|.2) 

TV2( 1 ,l;L2)=VALnr, (OAl; TV2{1,1;L2)) 

TV2(l,l:L2)=l.- TV2(1,1;L2) 
nn 30 1=1, MS 

TVl ( 1 , 1 : L2 ) AI ( I , 3 )+BI ( 1 ,3 )*nAl+C I { T , 3 )’i'A A1 ( 1 , 1 ; L2 )+ni ( I ,3 ) 

1«AA3( 1 , 1 ;l_? ) + F I ( I ,3)’!-A13{ 1 , 1 :L2 ) ) 

CPI 2 ( 1 , 1 , 1 ;MXM ) =Ofi\/MFR G( T'/l ( 1 , 1 ; L2 ) ,CPI 1 { 1 , 1 , I : L I ) , BG( 1 , 1 ;MXM ) ; 
1CPI2( 1 ,1 , 1 :mxm) ) 

T\/l ( 1 , 1 ;L2 ) = AI ( I , 3)* TV2( 1 , 1 ; L2 )-. I ( I , 3 ) *0 A 1-C I ( I , 3 ) * A A 1 ( 1 , 1 

1 :L2 ) /6,-ni ( I ,3 )*AA2 ( 1 , 1 : L2 ) / 12.-f=I ( 1 ,3 )«0.n5-A 13 ( 1 , 1 ;L2) +F I ( I ,3 ) / 

pnAi-Gin, 3) 

FORK 1 , 1 , 1 :mxm )=OB\/MPR', ( TVl ( 1 , 1 : L2 ) , FH ( 1 , 1 , I : L 1 ) , RG ( 1 , 1 : MXM ) : 

1 FflRT( 1,1,1 ;MXM) ) 

TVl ( 1 , 1 ; L 2 ) = RP*r)A 1 * ( AI { I ,3 ) + .5*B I ( I ,3 )>DA 1 + C I ( I ,3 )*AA1 ( 1 , 1 ; 1.2 ) / 3. 

1+ni(I,3)«AA2(l.l;L2)/4.+FI(I,3)=:'A13(l,l;L2)/5. + FI(I,3)/nAl) 

FMTCI , 1 , 1 ;MXM ) =QP\/MFRG( TVl ( I 'i 1:L2) ,Mnr.FFf 1 , l, I ;L1 ) ,BG { 1 , 1 ;mxm) ; 
IFMTI 1 ,1 , I ;MXM) ) 

30 CnMTIMUF 

TVl ( 1 , 1 ;mxm )=\/ALnG{ P( 1 , 1 ;mxm) ; Tvi ( i , 1 iKfXw ) ) 
no 50 1=1, MS 

50 FORT( 1,1,1 ;MXM) =Ff)RT( 1,1,1 ;mxm)+ TVl (1,1 :mvm) 

FH ( 1 , 1 , 1 : MS*MXM ) =FMT ( 1 , 1 » 1 ; MS>:--MXm ) 

RctuRM 

FMO 

SlIRRHUTIMF CHFiM ( KT^^ST ) 

C n M n M / F 2 / M X M , M X R 1 , M X M 3 , M X M 4 , M X M 5 , M X M R , M X M 2 , M X M M 
COMMOM/CHFOAI/SH ( 101 , 14) , T( 101 , 14) , P{ 101 , 14 ) X( 101 , 14) , 

ICU 101,14,5) 

CnMMnM/F13/A|)l ( 101, 14,7 ) ,THF1( 101 ,14) ,THF2( 101 , 14 ) ,VATR ( 101 , 14 ) ,nr. 
1 L( 101 , 14,3 ) , AIK 101 , 14,7 ) , AM{ 101 , 14 ,7 ) , AM{ 1 01 , 14 ,7 ) , A0( 101 , 14,7 ) 
Cni-iMriM/CHFOM/MF , MS , MA, MM 

CnMMnM/CHFOn/FnRT( 101 , 14 , 1 Q),Y( 101 , 1 Q),X( 101 . 1 P),YBAR| 101 ) 
CQRMnM/CHF0A2/FH( 101,14,19) ,MOLFF (101,14,19) 

COMMOM/ITFR/HI ( 101 ,14) ,MMIX1 ( 101 ,14) 

CnMMnM/CHFOC/MW( 19 ) ,SYMB( 19 ) , A A ( 1 9 , 5 ) , MOFI. ( 5 ) , A AA ( 101 , 1 9, 5 ) 
CnMVnM/CHFOF/YI 1 ( 101 , 14, 19) 


ItO 


TMFRn4?n 

TMFR0430 


non 


RFAL MWtMOLEF 
Hid, 1 ;nxm)=o. 
wMixK i,i;MXM)=n. 

THF2I 1,1 ;NXM)=n. 
on 10 1=1 ,NS 

WMIX1I1,1;NXM)=WMIX1(1,1;NXM)+ Y 1 1 ( 1 , 1 » I : MXM ) . 

10 THF2(l,l;NXM)= THF2(1,1:NXM)+ YI 1 { 1 ♦ 1 1 1 : MXM ) *wiw ( I ) 

C MOLFCDLAR weight of FOUILIBRIDM mixture 

WMIX( l,l:NXM)=THF2 ( i,i;nxm)/wmixi( 1,1 :mxm) 

FMTHALPY OF EOUIL. MIXTURE IN CAL/MOL. DIVIDF RY MIXTURE MOL.' WT, 
TO GET IN CAI./GM, 

1 CAL/GM = 41RA J/KG, 
nn 20 1=1, NS 

HI (1,1:NXM)=HI I 1,1:NXM)+ EH( 1,1,1 ;NXM)#YI1(1,1,I,*NXM) 

20 MnLEF(l,l,I;NXM)= . Y I U 1 , 1 , I : NXM ) / WM I X 1 ( 1 , 1 : MXM 1 
HI d ,1 ;NXM )=HI I 1 , 1;NXM) /THF2( 1 , 1 ; NXM) 

RETURN 

FNO 

SUBRnUTINF CHFCM KTFST,JF,M1,L ,CR IT) 

C CHEMICAL EQUILIBRIUM HE MULTIPHASE SYSTEMS RASEO ON THE PRINCIPLE 
C OF MINIMIZATION OF THE FREE ENERGY OF THE MIXTURE 

C THE CONDENSED SPECIES OPTION I S NOT CURRENTLY IMPLEMEMTED. 

COMMOM/CHEOAl/SHdOl ,14),Td01,lA),P(101,l4) ,WMIX{ 101,14) , 
1CL(101,14,5) 

COMMnN/CH6QA2/EH( 101 ,14, 19) ,M0LEFd01 ,14,19) 

C0MM0N/CHE0H3/CPI 21 101,14,19) 

COMMON/CHFQN/NF ,MS ,MA ,MN 

COMMON/CHEQC/MW( 19) ,SYMR(19) , A A (1 9 , 5 ) , MWEL ( 5),AAA(101,19,5) 

COMMON /CHEQD/ FORT ( 101,14,19),Y(101,19),Xd01,19),YBAR(101) 
COMMON/ITFR/HI ( 101, 14) ,WMIX1 1 101, 14) 

CnMMnN/CHE0F/YIl(l01,14,19) 

COMMON/CHEOS/SKIPdOl) 

COMMON /CHEQT/ CONV (101 ) ,XLAMRnd01 ) , OFLT ( 101 , 1 9 ) , F (10 1 , 19 ) , DEBAR (1 
101 ) ,HALL(101 ),DFOL( 101 ) 
niMEMSIOM RIG( 101 ) 

BIT BIG 

REAL MM,MWEL,MnLFF 
RCRIT = . l-.'^CRIT 
MMS = Ml5^-MS 
RR=1.9B7 
NT = 0 

SKIP( l:Ml)=0. 

C IF KTEST FQ 1 USE MOLE MUMBERS COMPUTED PREVIOUSLLY FDR THIS 
C ST6TIDM AS IMITIAL GUESS. 

C OTHERWISE, ESTIMATE SPECIES MOLE NUMBERS FROM ELEMENT 
C MASS FRACTIONS. 


4l 


CHF01.740 


CHE00030 
CHF00040 
CHEOOl 10 


CHED0420 


IF(KTF.ST,FQ,1)G0 TO 40 

C starting ASSUMPTIGM - ATOMS ONLY, MO COMpnilMOS 
Y(1,1:mNS)=1.F-7 
Y( 1 ♦l:Mn=CL(] ..IF» IIMI )/MWFL( I ) 

Y( 1«2;m 1 )=CL( It JF,2:M1 )/mwfL( 2) 

Y( 1»5;M1)=CI.( ltJFt3;Ml)/MWFI-(3) 

Y( 1,7;m 1 )=CL(lt JF,4 ;m1 )/MWFL(4) 

Y( I tl5;Ml )=CL( ltJFf3 :m1)/MWFL(‘5) 

GO TO 50 
4P COMTINUE 

nn 42 I=ltNS 

42 Y(ltI:Ml)=YIin»JFtI;Ml) 

50 COMTIMUF 

C FRFF FMFRGY MINIMIZATION' BY STFFPFST OFSCFNT 
40 COMTIMUF 
MT=MT+1 

CALL MINFMG(MStNFtJF,MMS»Ml,L) 

C LAMBOA AMO OIRFCTIOMAL OFRIVATI'/F ( OFOI. ) ♦ AMO COMVFPGFNCF TFST 
XLAMBOI 1 ;M1 )=1. 

OFLT ( 1 ♦ I ; MMS ) =x ( 1 t 1 ; Mws ) -Y ( 1 ♦ I ; MMS ) 
no 100 M=i,Mi 

.IF(SKIP{M).R0.1,)G0 TO 105 
IF(MT.LF,B )G0 TO 107 
IF(NT.GF.17.ANn.NT.LF,22)GO TO 107 
CALL TFST(M) 

GO TO lOB 

107 CALL TFSTKM) 

T0« COMTIMUF 
GO TO 100 

105 on 106 J=1,NS 

106 OFLT(MtJ)=0. 

100 COMTIMUF 

C OFBIVATIVF FOR GASEOUS SPECIES. 

F( 1 »l ; mms)=vabs( OFLT( 1 1 1 ;MMS ) ;F( 1 1 1 ; mms) ) 

COMV( 1 ;M1 )=0. 

OFRARI l;Ml )=0. 

on no 1 = 1 , NS 

COM\/( 1 ;M1 )=F( 1 , 1 ;M1 )+CONV( 1 ;M1 ) 
no nFRAR(l;Ml)=nFLT(l,I;Ml)+OFBAR{l;Ml) 

MTRIFS=0 
120 COMTIMUF 

HAI,L( l:Ml) = l./(YBAR(l:Ml ) + XLAMBO( 1 :M1 )«nFBAR { 1 :M1 ) ) 

MTRIFS=NTRIFS+1 

no 1 BO 1 = 1, MS 

130 F(1,I:M1) = (Y(1,I:m 1 )+XLAi'<!Bn( 1 ; Ml )«OFLT( 1 , I :M1 ) )«HALL( 1 ;M1 ) 

F( 1 , ItMMS )=VALOG( F( 1 , 1 :mmS ) : F( 1 , 1:mnS ) ) 


CHF007P0 

CMFOOBOO 
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npnu i;Mi )=o. . 

no 140 I =1 ,NS 

F( 1 1 1 :M1 )=nPLT( 1 1 1 :mi )# ( FORT ( 1 1 JF ♦ I ; Ml )+F ( 1 » I ;M1 ) ) 

140 OFOLI l;Ml)=nFDL( 1;M1)+F(ltl :M1) 

C IF DFOL < 0, WF ARF GOING THF RIGHT WAY ON FRFF FNFPGY SDRFACF. CHF012?0 

C IF MOT, RFOUCF LAMBDA AND TRY AGAIN,.. 

RIG( l;Ml)=SKIP(l;Ml) .FO.l. 

DFDL ( 1 :M1 )=ORVCTRL( l.E-10, BI Gl 1 ;M1 ) ;DFDL( 1 : Ml ) ) 

RIG( 1 :M1 )=DFDU 1 ;M1) .GE.l.F-9 
HALLI 1 ;M1 )=.75«XLAMBD( 1:M1) 

XLAMB0( 1 ;M1 )=Q8VCTRL(HALL{ 1;M1 ) »BIG( 1 !M1 ) ; XLAMRDI 1 ;m1 ) ) 

I I=0BSGF(DFDL( 1 ;M1 ) , 1. E-9) 

IF{ I I .EO.MDGO TO 200 
IF(NTRIFS.GT.16)G0 TO 600 

GO TO 120 CHF01?.qo 

200 CONTINUE CHE01330 

C NFW MOLE FRACTIONS 

HALU 1 ;M1 )=VABS( DFDL( l;Ml ) ;HALL( 1;M1 ) ) 

RIG( 1;M1 )=HALL( l:Ml) .LT.l.F-9 

COMVI l;Ml )=Q8VCTRL(RCRIT,BI G( 1 ;M1 ) ;CONV( ItMl ) ) 

RIG( 1 ;M1 )=CONV{ 1 ;M1 ) .LE.CRIT 

XLAMRD( 1 ;M1 ) =08VCTRL( 0. , BI G( 1 ; Ml ) ;XLAMBD( 1 ! MI ) ) 

SKIP{ l:Ml )=OBVCTRU 1 . ,BIG( 1;M1 ) !SKIP( I ;M1 n 
I I=ORSGF(C0NV( 1 :M1 ) fCRIT) 

IF( I I .FO.Ml )G0 TO 600 
DO 220 1=1, MS 

220 Y(1,I;M1)=Y{1,I;M1)+XLAMRD(1;M1)#DELT(1,I;M1) 

IF(NT.LT.50)GO to 500 
WRITF(6,231) 

231 FORMAT! /IX, ‘MO. OF ITERATIONS EXCEED 50'/) 
no 350 M=1 ,M1 

IF(SKIP(M).F0.1. )G0 TO 350 

WRITE! 6,300 ) L, JF,M,P ( M, JF ) ,T{M,JF) rDFDL.(M) ,COM\/(M) ,XLAmBD(M) 

350 CONTINUF • 

300 FORMAT! 1X,I5,5X,I4,5X,I4,5X, «P=‘ ,F 12 . 5 , 5X , ' T= ' , F 13 . 5 , 5X , 'DFDL=' , 



1E12.5,3X, 'CONVrr' ,E12.5,3X, 'XLAMB0=' ,E11.5) 



GO TO 600. 


5 00 

GO TO 60 



COMTIMUF 
no 620 1=1, NS 

CHFOlftRO 

620 

YI1!1,JF,I;m1)=Y!1,I;M1) 

RETURN 

CHF02150 


end 

-SUBROUTINE TEST! M ) 

COMMnN/CHFON/MF,NS ,NA,MN ' 

COMMON /CHFOD/FORT! 1 01 , 1 4, IP ) , Y ! 1 0 1 , 19 ) , X ! 1 0 1 , 19 ) , YR AR ! 1 01 ) 

CHF02160 



COMMON/CHFOT/ CnM\/( lOl ) tyLAMROt 101),OFLT<101,l«9),F(101tl9 ) tOFRAR. ( 1 
ini) ,HALL( 101 ) ,nFDi.i ini) 
on 107 1=1, NS 

IF(OFLT(M,I ) .OF.O. )Gn TO 107 
IF(Y(M,I)/YRAR(M).LT.l.E-7)Gn in. 101 
XLAM=-Y(M,I)/0FLT(M,I) 

IF(XLAM.GF.XLAMRD(M) )Gn TO 107 
XLAMHn(M) =0.9999999*XLAM 
GO in 107 
101 nFLT(M,I)=0. 

107 CnMTINUF 
RFTIIRN 
FNO 

SDRRnuTIMF TFSTl (M) 

' CnMMnM/CHFqM/MF,MS,MA,MM 

COMMON/CHFOn/ FORT (101 ,14,19) ,Y(101,19),X(101,19) ,YBAR( 101 ) 
COMMOM/CHFOT/ CnN\/( 101 ) ,XLAMRD( 101 ) ,OFLT( 101 , 19) ,F( 101 , 19 ) ,OFBAR ( 1 
101 ) ,HALL( 101 ) ,nFOL( 101 ) 

on 107 1=1, MS • 

IF(OFLT(M,I ) .GF.O. )Gn TO 107 
XLAM=-Y(M,I )/OFLT(M,I ) 

IF(XLAM,GF.XL AMR0( M) )Gn TO 107. 

XLAMRO( M )=0.9999999«XL AM 
107 CnMTINIIF 
RFTURM 
FNO 

SURRmiTINE MIMFNG|MS,ME, JF,MMS,M1 ,L ) 

C FIT N-OIMFMSinNAL PARABOLA TO POIMT IN FRFF-FNFRGY SPACF, WHFRF 
C M IS MIIMRFR OF FLFMFMTS IN SYSTEM. 

COMMOM/CHFOAl/SHI 101 , 14 ) , T ( 10 1 , 1 4 ) ,P { 1 0 1 , 14 ) , WM I X ( 10 1 , 14 ) , 

1CL( 101 ,14,5 ) 

CnMMnW/CHF0A2/FH( 101,14,19) ,MOLFF( 101,14,19) 

C0MM0M/CHF0H3/CPI 2( 101 , 14, 19 ) 

COMMON/CHEOC/MWC 19 ) ,SYM8( 19) ,AA( 19 ,5 ) ,MWFL ( 5 ) , A AA ( 101 , 19 ,5 ) 
COMMON/CHFOO/FORTI 101, 14,19) ,Y( 101,19) ,X( 101, 19) ,YBAR( 101 ) , 
CnMMOM/CHFOG/Al ( 101,6,4) ,BB1 ( 101 ,6) 

CnMMnM/CHFOS/SKIP( 101) 

01 MENS I OM DELTA! 101,19,5) ,F( 101 , 19 ) , nPLT I 1 01 , 1 9 ) ,BUM ( 101 ) , XYBAR ( 
1101 ) ,R1 ( 101 ,6,6 ) 

Mf-iM = NlF + l 
MX=36*MI 
MNF=M1*MF 
MNE1=MMM«M1 
YBAR( l;Ml )=0. 
on 100 1=1, MS • 

100 YRAR{ 1;mi )=yrAR{ 1;mi)+y( 1,I:m1) 


kk 



( 


MIMF0030 


c SFT IIP AMH SnLVF i'AT^IX 
KHK 1,1 ;60ft)=0. 

nn 110 J=1,MF 

0BLTA( 1 , 1 , v) :MMS )=AAA( 1 , 1 , J : MMS ) *Y { 1 , 1 t M\lS ) 

on 110 1=1 , NS 

110 -HHi ( 1 , j;Mi )=nFLTA( 1 , 1 , j;mi )+rbi( i , j;mi ) 

C (1) FRFF FNFRGY - GASFOIIS SPRCIFS 
nn 170 1=1, MS 

170 f(1,i;mi)=y(1,i;m1)/ybar(1;mi) 

F(i,i;MMS)=vALnGiF( i,i;mms);f(1,i:mms) ) 
on 180 1 = 1, MS 

180 F ( 1 ,I :M1 )=Y( 1 , 1 ;mi )«( FORK 1, JF, I :M1 )+F( 1 , 1 ; Ml ) ) 

C IMITIAI.IZF MATRICFS 

ai(1,i,i;mx)=o. 

R1{1,1,i:mx)=o. 

Ai ( 1 , 1 , 1 ;mnf ) = RB1 ( 1 , 1 ;mmf ) 
nn ?70 j = i ,MF 
nn ?70 K=l,J 

OFLT ( 1 , 1 : MMS ) =A AA ( 1 , 1 , J J MNS ) *DFLTA ( 1 , 1 »K ; MMS ) 

nn ?75 1=1, NS 

?78 R1 ( 1 , J ,K ;M1 ) =nFLT( I , I : Ml )+Rl ( 1 ,vJ ,K ;mi ) 

?70 Ri ( 1 ,K, J ;m1 )=R1 ( 1 , J,K;mi ) 

nn ?80 j = 2 ,MMf/i 

K = .)-l 

?«o lii ( 1 , 1 , J ;mmf ) =R1 ( 1 ,1 ,k;mmf) 
nn 810 j=R,MMM 
K=J-1 

810 Al ( 1 ,MMW, J ;M1 ) =A1 ( 1 ,K, 1 ;mi ) 
nn 8?0 vi = l,MF 

OFLT ( 1 , 1 ;MMS ) = A AA ( 1 , 1 , J : MNS )*F ( 1 , 1 : MMS ) 

RHM( i;Mi )=o, 
on 330 1=1, MS 

380 BIIM( l;Ml )=DELT( 1 , 1 ;M1 )+RIIM( 1 ;mi ) 

8?o hb1(1,j:m1)=8B1{1,J;mi)+ri)m{1:m1) 

BIJM( 1:M1 )=0. 

nn 340 1 = 1 , NS 

HA.0 BIJrM 1 ;M1 ) =BIIM ( 1 ; Ml ) + F ( 1 , I ; Ml ) 

B R 1 ( 1 , M V.M : M 1 ) = Bl )M ( 1 ; M 1 ) 
call EOSnL(MMM,MF,Ml) 

C MF'-i Mf)LF FRACTIONS (X) 

XYBARI 1 ;M1 )=BR1 ( 1,1 ;M1 ) 

BHi(i,i ; mnf)=rbi( r, ?: mmf) 

OFLK 1,1;MNS)=0. 
nn 390 j=i,NF 
nn ^oo‘ 1=1 , NS 

OFLK 1 , 1 ;Mi ) =OFLT{ 1 , 1 ; Ml )+AAA( 1 , 1 , J ;mi )»:«rbi ( 1 , J ;M1 ) 


^<•0 0 


H<?() CO^'iTTNMF 

nn 1=1 »MS 

^10 OFLT( 1, I ;^11 )=nPLT( I t I ; )+XYRAR( 1 ;M1 ) 

X ( 1 » 1 ; MMS ) =nF I. T ( 1 » I : { I » 1 : mmS ) -f ( 1 » 1 ; mm s ) 

R>=TIIRM 

Fi'in 

SUBROUTINF FOSni. { MWM,M6tMl ) . ' 

CnMWnM/CHFOG/Al ( lOltftfft) ( 101 ,|S) 

OIMFMSinM IK 101 »6 ) » S( 101 ) ,TK2( 101 ) »UT( 101 ) 
nn 200 K=1,MF 

J=K ' 

S( 1 :M1 )=0. 

nn 20 i=K,MMM 

20 s( 1 : Ml ) =s ( 1 ; Ml )+A 1 ( 1 . 1 » J : Ml ) * 41 ( 1 , 1 ♦ J ; Ml ) 

S ( 1 :M1 )=vsoRT( S ( 1 ;mi ) : S( 1 : Ml ) ) 

u( 1 ,k:mi )=41 ( 1 ,K» j;mi )+vsiGK'( S( 1 ;mi) t4i( 1 ,K, J;M1 ) ;uT( 1;M1 ) ) 

KP1=K+1 

Kr-U = M1*( MMM-K ) 

U( 1 »KP1 ;KM1 )=A1 ( 1 ,KP1» J;KM1 ) 

41 ( 1 »K,J ;M1 )=-VSIGM( S( 1 :mi ) t A1 ( 1 ,k»j;mi ) ;|IT( 1 ; Ml ) ) 

tk?(1;mi)=u(1,k;mi)*s(1;mi) 

TK2(1:M1)=\/4BS{TK2(1:M1) :TK2 ( 1 ;m1 ) ) 

JK=K+1 

nn 70 JJ=JK,MN'M 
uT(i;Mi)=o. 
on 50 iii=k,mmm 

5 0 iiT ( 1 ;Mi ) =UT { 1 ; Ml ) +u( 1 » 1 1 1 ; Ml )«4i ( 1 , 1 II , JJ : Ml ) 

||T( l ;M1 )=IJT( 1 : Ml ) /TK2( 1 ;mi ) 

nn *0 ii=K,MMM 

AO 4i{i,ii,jj;Mi)=4i(i»ii,jj:Mi)-n(i,ii;Mi)*iiT(l;Mi) 

70 CONTINUE 

UT( 1:mi )=0. 
on 50 ii=k,mmm 

00 UT ( 1 ;M1 ) =UT( 1 : Ml )+!){ 1 , 1 1 :mi )*BB1 ( 1 ♦! I : Ml ) 

UT{ 1 ;M1 )=UT{ 1 :M1 ) /TK2( 1 ;M1 ) . 

nn 60 ii=K,MMM 

60 BBl ( 1 , 1 r:Ml )=RH1 ( 1, 1 1 ; Ml )-U( 1 1 I I J Ml )*IIT( 1 ;m1 ) 

200 CONTIMUF 

HB1(1,6;M1)=BR1(1,6;M1)/41(1,6»6;M1) 

BBK 1,5:M1 ) = ( BBl ( 1 »5 :m 1 )-Al( 1,5,6;M1 )*BB1 I I ,6;M1 ) ) /A1 ( 1,5,5;M1 ) 
BBl ( 1 »a;M 1 ) = ( RBi { 1 1 A;M1 )-Al( 1 14»6; Ml )*BR1 ( I ,6 :M1 )-Al ( 1 5 ;M1 )* 
IBBI ( 1,5;M1 ) )/Al( 1 ,4,4;M1 ) 

BBK 1 ,3;M1 ) = ( BBl ( 1,3:M1 )-Al( 1,3»6;M1 )*BB1 ( 1 , 6 : Ml ) -A1 ( 1 , 3» 5 ; Ml ) * 
1HB1(1,5;M1)-A1( 1 ,3 »4;M1 )*BB1 ( 1,4;M1))/AU1,3»3;M1) 

KBl ( 1 t2;Ml ) = (BB1 ( 1, 2 :mi )-A l ( 1,2»6;M1 )*6R1 ( 1 »6;M1 )-Al ( l/2» 5;M1 )* 
IPBl ( 1 , 5;M1 )-4 1 ( I , 2 fAtMl )*BB1 { 1 t4:Ml )-Al ( 1 t 2 »3; Ml )*BB1 ( 1 1 3;M1 ) ) / 


k6 


MTMF1730 


lAK 

HBI ( 1, 1 :mi ) = (RR1( 1, l;Ml )-Al ( 1 , 1 , 6 : Ml ) «RR 1 ( I , 6 : Ml ) - A 1 ( 1 ♦ 1 , 5 : Ml ) « 
IRRK 1,5;M1 )-Aia,l,A:Ml)*Rfil(l,4;Ml)-Al(l,i»3SMl)«RRl(l,3;Ml)- 
1A1(1,1,2;M1)*HR1(1,2 :m 1) )/Al(Ul,lJMl) 

-FTURM 

F^n 

SURRnUTIN'F RFAn 
RFAL MW,MWFL 

CnMM0M/Fl/Nl»N14,N50,M52,Ml,Mll ♦MR0»MJ,MJ1 

CnWMnM/CHFOAl/SH( 101 » 14), T( 101,14) ,P( 101, 14) »l«'MIX( 101,14) , 

1CL( 101 ,14,5) 

CnMMnM/CHF0A2/FH( 10 1 , 1 4, 1 9 ) , MOLFF ( 101 , 14, iq ) 

CnMMnM/CHFOH3/CPI2( 101 ,14,19) 

C DM MOM / CH FOM /N F , M S , M A , MM 

COMMON/CHFOB/ AI(20,3),BI(20,3),CI(20,3),ni(20,3),FI(20,3), 

. FI(20,3),GI(20,3) 

CnMMrjM/CHFOC/MW( 19) ,SYMB( 19) , AA ( 19 , 5 ) , MWFL ( 5 ) , A AA ( 101 , 19 , 5 ) - 
CnMM 0 M/TP 3 /XMA ( 20 ) , XMB ( 20 ) , XMC ( 20 ) , XK A ( 20 ) , XKB ( 20 ) 
niMFMSinN ILWP{6) 
niMFNSIHM ILM(9) 

OATA ILW/5H SI,5H F,5H 0 , 5H M,5H C , 5H HF, 

15H H,5H F-,5H / 

NAMFLIST/THFRMn/ MW,MWFL ,MA,MF ,NS ,MM 

MM = 0 

NIT = 0 

IUMIT=1 

XI.FWIS = 0.0 

XPRAMO=0,0 

C IMpilT PROBLFM NAMFLISTS 
20 RFAO( 5,THFRM0) 

|«|RITF( 6,THFRMn) 

on 60 1=1, NS . 

RFAn(5,901) SYMB( I ) , ( AA{ I ,J) , J=1 ,NF) 
on 55 x)= 1,3 

55 RFAD(5,P02) AI ( I,J),BI(I,J),CI(I,J),ni(I,J),FI(T,J),FI(I,J),GI( I 

RFAO( 5,902 )XMA( I ) ,XMB( I ) ,XMC( I ) ,XKA( I ) ,XKB( I ) 

60 CnMTIMUF 

C THFRMnCHFMICAL PROPFRTIFS 
•■'IRITF(6,919) 
on 120 1=1, MS 

MRITF(6,920) SYMR{ I ) , { A I ( I , J ) , R I ( I , J ) , C I ( I , J ) , 0 I ( I , J ) . F I ( I , J ) , 

FI(I,J),GI( I,J),J= 1,3) 

120 COMTIMUF 
122 WRITF(6,921) 
on 130 1=1, NS 

MRITF(6,922 ) SY MB ( I ) , XMA ( I) , XMR( I ) , XMC ( I ) , XKA ( I ) , XKB ( I ) 


RFAn09in 


RFAni460 


RFA01610 

.l)RRAni630 
RF API 640 
RFA01670 

RFAn200n 
RFAn2m O 
RFAn?n20 

RFAnPOAO 

RFAn2060 

RFA0207n 



Rf=An?0«0 


c 

c 


1-=10 COMTIMIIF 

SPPf.I FS/FLFMFMTAI. CnMPnSITIPM matrix 
(THIS LD(TP IS KFYFD TH THF C-H-n-H“HE SYSTF^O 
on 1=1 »MF 

ILWP( I )=ILH( 1 ) , ■ 

IF(MWFL( I ) .LT.?7.) ILWP( I ) = ItJ-M P) 

I F ( MWFL ( I ) . LT. 17. ) ILHP( I ) = ILW{ 3) 

I F { MHFL { I) .LT . IS . ) ILWP{ I ) = ILW(A) 

IF(MWFL(I ).LT.13. ) ILWPI I )=ILW( 3) 

IF(MWFL( 1 ) .LT.^.l ) ILWP( I ) = IU'I(A) 

I F ( MWFL ( I ) . LT. 1 . 1 ) I LHP ( I ) = I LWl 7 ) 

IF(MWFL( I ) .LT.0.1) ILHPI I )=ILW(R) 

IF(MWFL( I I.FO.O.O) ILHP( I )=ILW(9) 

13R COMTINDF 

WRITF(6,923) I LHP 
on 1 ^0 I =1 .MS • 
on 137 J=1,NF 

IF( AA( I .J ) .FO.O. ) AA(I,J)=0. 

137 COMTIMUF 

WRITF|6.92^) SYMB( I ) » ( AA ( I , J ) ♦ J=1 »HF ) 

1/+0 CnMTIMUF 
901 FORMAT! Afe»4X,(SF5.0) 

no - CHPVF F,T COFFPICIFMTS 

•//46X,'(1) THFRMnnYMAMIC PRnPERTIFS'//4X, 'SPFCIFS' »11X, ' A ,14X, 

ini 14X. 'f ' .14X. 'O' .1^X» 'F' »14X. 'F' tl^Xt '0'/) 

9'^0 ‘format! lH(1,5X.A6,3X,7F15.ft» ' T= 300K ' / 1 5X , 7 FI 3 . 6 1 ' T= 1 OOOK • / 1 5X , 

9 PI ‘format! IHO/Ix.' SPFCI FS' .30X, ' \/ 1 SC OS I T Y ' . 2 « X , 1 H* , 1 2 X , ' COMOUC T TV ITY ' 

9P? FORMATIIH ,4Xt Ai3,AX ,3E20.6»3X, lH4,Flft.6,F20.3) t-Dcncc i AAm 

P?3 FORMAT! 1H0//49X, 'FLFMFMTAL PARTICLES TARLF'/42X.' SPFCIFS '.BAB) 

9?4 F0RMAT!1H , 43X . A6 » 1 X , 6F 5. 0 ) 
msmfmi=ms-''MF=;=mi 
A A A ( 1 , 1 , 1 ; MSMF’vil ) =0. 
on 110 i=i,Mi 

no no j = i,MS 
no no K = i.MF 


R FA02200 
RFA02210 
RFA02220 


RFA02?3n 

RFA02240 

RFAn3S10 

RFA03320 


R FAORR 
R F A03« SO 
RFAORR^n 

RFAORRRO 


1 10 


AAA(I,J.K)=AA!J,K) 

RFTORM 
F M n 

SIIRROIITIMF TP _ 

RFAL MfiLFF.MW _ 

COMMOM / F 1 / N 1 f W 1 4 » M 50 » M5 2 » M 1 ♦ M 1 1 , M 50 » MvJ » M J 1 
COMMON!/ F2 /MXM f NXMl, MX M3 » MXM4n'XM5 ♦ MXMR , MXM2 » N'XMM 
CnMMnM/F6/IMT( 14) ,THF! 14) »TIMP! 1.4) »TFMP( 1^) .JF! 14) 


R FADBROO 


TFl ! 14) ,TF2! 14) 


48 



1 »TF3{ 14) ,TP4( 14) ,TF5( 14) tTFA( 14) ,TF7( 14) 

CnMMnN/F21/A9( 101,14) , A10( 101 , 14 ) , A 13 ( 101 , 14 ) , A A 1 ( 101 ,14) , AA2( 101 , 

114) 

CnMMnM/CHEOAl/SH( 101,14)»T( 101,14),P(101,14),WMIX(101,14) , 

1CL( 101 ,14,S) 

CnMMnw/CHFOA2/FH( 101, 14,19) ,MnLpF( 101,14,19) 

CnMMnM/CHF0H3/CPI2( 101,14,19) ' " 

CnMMnM/CHFOM/MF,NS,NA,MM 

C0MM0M/CHE<?C/MW( 19),SYMB( 19) , AA( 19 , 5 ) , MUFL ( 5 ) , A AA ( 101,19,5) 
COMMOM/CHFOn/FORTf 101, 14, 19 ) , Y (1 0 1 , 19 ) , X ( 10 1 , 19 ) , YRAR ( 1 01 ) 
CnMMnM/TRANS/VIS( 101 ,14) ,TK( 14) ,SIG( 101,14) 

CnMMnM/TP3/XMA(20),XMR(20),XMC(20),XKA(20),XKR(20) TP 

niMFN'SinM 81(101,14) : 

HIT HI 

C HFRF fh rfprfsfmts viscosity of SPFCIF I. 
on 200 I=1,MS’ 

FH ( 1 , 1 , I ; MXM ) = ( XMA (I ) +XMR ( I ) *T ( 1 , 1 5 NXM ) +XMC ( I ) »1'T ( 1 , 1 ; MXM ) *T ( 1 , 1 : 
lMXK))/.0672 - 

Hl( 1,1 ;NXM)=EH( 1,1,1 ; MXM) .LF.O. 

FH( 1 , 1 , 1 ;MXM)=QPVCTRL( l.F-10,Bl< 1 , 1 ;NXM) ;fh( 1 , 1 , I ;mxm) ) 

200 CPMTINMIF TP 

C SPECIFIC HFAT OF MIXTURE 

A9(l,l:NXM)=0. 

nn 201 1 = 1 , NS 

A9( 1 , 1 ;NXM) = A9( 1 ,1 ;MXM)+CPI2( 1 ,1 , 1 ;MXM)5i«MnLFF( 1 , 1 , I :MXM) 

201 CONTINUE ' TP 

C HERE FORT REPRESENTS THE THERMAL CONOUCTIVITY OF SPECIF I. 
no 206 1=1, NS 

FORT( 1 ,1 , I ;NXM)=(XKA( l)+XKR( I )#T( 1 ,1 ;MXM) )/,0672 
206 CONTINUE TP 

C WILKF relation FOR MIX. V I SCOS I TY , THERMAL CONOUCTIVITY ANn PRAMOTL Nn 

VIS( 1 , l:NXM)=0. 

A10(1,1:NXM)=0. 
no 204 1=1, NS 
A13( 1 , 1 :NXM)=0. 
no 205 J=1,NS 

nEMOMl=2.P2’!‘SaRT(l .0+MW( I )/Mi-KJ) ) 

UJI=SORT(MW( J)/MW( I ) ) 

WJI=SORT( WJI ) 

AA1(1,1:NXM)=EH( 1 , 1 , I :MXM) /EH( 1,1,J;NXM) 

AAl { 1,1 ;NXM)=VSORT( AAK 1 , 1 ; MXM ) ; A A 1 ( 1 ,1 ;NXM) ) 

AAl ( 1 , 1 ;nxm ) = 1 ,+AAl ( 1 , 1 ;mxm)*wji 
AA1{ 1,1:NXM)=AA1( 1,1;MXM)«AA1(1,1:NXM) 

A13(l, 1 :NXM)=A13( 1, 1;NXM)+M0LFF( 1 ,1 ,J:NXM)«AA1 ( 1, I :NXM) /OENOMl 
205 CONTINUF TP 

V I S ( 1 , 1 ; NXH ) =M0LEF ( 1,1,1; MXM ) *FH ( 1 , 1 , I ; MXM ) / A 1 3 ( 1 , 1 : nxm ) +\/ 1 S ( 1 , 1 ; 


0290 


0720 


07P0 


0P50 


OQRn 
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IMXM) 

A 10 ( 1 , 1 :MXM)=MnLFF ( 1 , 1 , I ; NXM ) T { 1 ♦ 1 ♦ I : MXM) /A13( 1 ♦ 1 1 MXM ) +A 10 ( 1 1 1 
1 ;mxm) 

?() 6 . cnMTIMUF 

TK ( 1 :N'l ) =0RVGATHR ( A 10 { 1 ♦ 1 ; NXMl ) » I MT { 1 : Ml ) ; TK 1 1 ; Ml ) ) 

SIG( 1 » 1 :NXr^ ) = VIS { 1 ♦ l; MXM)«A9( 1 ♦ 1 ;MXM ) / A 10 ( 1 1 1 : MXM) /WMI x( 1 ♦ 1 :MXM ) 
RFTIIRM 

Fwn , ,v,, , 

SURRniiTIMF ATRAO(JF) 

RFAL MW,Mni.FF fMOLFFl ♦MWEL 

CnMr.'.OM/F5/S{ 14 ) ,SSI 14) ♦ G( 14 ) ♦CUR (14 ) , US ( 14 ) , DS ( 1 4 .) , VM ( I 4 ) » V/S ( 1 4 ) 
CriMMUiM/FlO/THFC I 101 ♦ 14 ) ♦THES( 101 ,« 14 ) ,TVl ( 101 . 14 ) ,TV 2 ( 1 , 01 . 14 ) 
CCIMMOM/CHFOAI/SHI 101.14),T(101,14).P(101 , 14) ,MMIX( 101 .14) ♦ 
lf.L( 101.14,5) 

Cnt>'V,nM/CHF 0 A 2 /FH( 101 , 14, 19 ) ,M 0 LEF( 101 ♦ 14, 19 ) 

CnMMnM/CHF 0 C/^>'M( 19 ) ,SYM 8 ( 19 ) , AA (;19 , 5 ) ,MWFL (5),AAA(101,19,5) 
CU^mUM/CMFOM/MF ♦MS.MA,NM 

CnMMi)M/TRMV/P 2 ( 51 ) ,T2( 51 ) ,SSU2( 15) ,MnLFFl ( 51 , 2 1 ) , P2S ,T2S , P F AC , TF AC 
cnMvnM/MORn/nM( 51 ) 

COMmuM/PRUB/FTAC 51 ) ,F( 51) .BFl ( 51 )’.BF2( 51 ) .TRC( 51 ) .TOTPC 51 ) , 

.CnwTFl ( 51 ) ,CnMTF2{ 51 ) ,P2P2( 51 ) 

CnMMnM/CTRL/IF,inUTPT,M, MIT.N'UMB, nVLY,ROLY,MwP,TTMFT, 
.MBnOY,ITPn,MACE. inPT, IMnS,XLF'-'IS,XPRAMn 
CUMMUM/CUMT/I RMIMJ , I OAT AP , I OATAR , I DEBUG , IFLUXC , T RSK T P , I SUBLM , 

. I TR I GR , W EMD ♦ MST AR T ♦ MC , MFR EO , M I MT ♦ M I MT 1 . MTT ♦ MT 7 

CnMMUM/LRAD/IFZ , I RDML Y , I HPUM ♦ L I NFS ♦ MF , META X , MSR , RUF , UF , XDT IL ♦ XMOL 
CnMNDM/SMALL/ 0UMIT(40) , I 0 GE( 6 ) 

Cn^MnN/GEDMER / GniiM{ 14) ,RM 
COMMON/CHEGO/ORI { 51 ) 

CriMMnM/F23/OFXR( 101 , 14) 

DATA P2S.T2S.PFAC,TFAC,LIMFS.XMnL/l,, 1 . , 1. , 1 . , 1 , 1./ 

DATA( IDGF(J) ,vJ = 1 .6) 720, 20,17, 17,20,0/ 

M = JF 

^inLFFU;l:,l;51*21 )=0. 

DO 10 I«l,101»2 

J=(I+l)/2 ; 

P2( J)=P( ItM) 

T2(J)=Tli.M) 

FTA( J )=TV1 (i .M) 

IF = J 

on 10 K=1,MS 

10 MnLFFllJ.K) = Mni.EF( I,M,K) 

IM=IF-1 

nN( l;IM)=ETA| 2: IM)-ETA(l;IM) 

^'FTAX=25 

II)EBUG=0 


TP 1016 


TP 1200 


P AUIOl Af) 


50 


SSn?(M)=S(M) 

RN=1./^0.4R 
CALL AERO 
CALL ARADPn 
on 20 M=1 tlOl ,2 
J=(M+1 )/2 

20 OFXR(MtM)=ORl( J) 
on 30 N = 2, 100» 2 
N11=N'-1 
N'22=N + 1 

30 OFXR(N,M)=OFXR( Mil ,M ) + ( QFXR ( N22 t M ) -OFXR ( Ml 1 » M > ) « ( TVl ( N tM ) -TVl ( Ml 1 . 
IM) )/(TVl(N22»M)-TVl(Mll,M) ) 

RFTIJRM 

FMO 

SUBRnUTIMF AERO 
REAL MOLEFl 

CnMM0N/TRN\//P2 ( 51 ) tT2( 51 ) tSSn2( 15 ) tMClLEFl I 51 »21 ) » P2S *125 , PFAC . TF AC 
CDMMnM/MnRn/nM( 51 ) 

COMMON/PROB/ETAi 51),F(51)tBFl(51)»BF2(51)»TRC(51) ,TDTP( 51 ) » 

.CnWTFl ( 51 ) ,CnMTF2( 51 ) tP2P2( 51 ) 

CnMMDM/CHEOR/ AHV ( 50) ,AHVL(25) tEPSC 55) ,FF(300) ,FHVC(50) ,FHV(25) t 
. FH VM ( 25 ) , FH VP ( 25 ) , G AMP ( 300 ) , GEE ( 56 ) » GUP ( 300 ) , HVL ( 300 ) , I A ( 9 ) » 
.MCRC(20) , NO I 300) ,MKK( 25) tNU(25) ♦ TMSW ( 50 ) t TMSUL (25) ,XN0L(300) ♦ 
.ALPHA (23),RFTA(7),FIML(25t3)tFIPL(25»3)»FIMC(50»3)»FIPC(50,3)» 
,FHVS( 200 ) ,MSHC ( 25 ) 

COMMnM/CHFQR/XMM( 51»23)»XO(51»7)»MICM(51)»YY(51)tTFE(51)» 

.PRES ( 51 ) ,0R( 51 ) ,FIMI ( 51 ) , F I PI ( 51 ) ,TLCM( 51 ) , TLC P ( 51 ) t BEE ( 51 ) , 

.FMIM 51 )tTAUT(51)»DIM(51)tDIP(51)»FIM{51),FIP(51) ,FRM( 51 ) » 

.FRP( 51 ) ,ELM( 51 ) ,FI IM( 51) tFIIPISl ) tFlMT( 51 ) .FIPT( 51 ) ,LMU( 51 ) , 
.SK(51),OSK(51),XF(51),EXPT(51)»XTX(51,3),VX(51) 

COMMON /AER AO/ OFI.T A , I NRE AD t K 1 »K2 t MAES t MBL P , MHV , M 1 1 MI C » MI HVC t 
MSHV,MXI ,NY»TW,C2tMlOPMT»MTRAMS,SF( 5) 

C0MM0N/CHE0M/MF,MS fMA»NM 

C0MM0N/CTRL/IF» lOUTPTtM, NIT»NUMB» OVL Y »R OL Y, NMP , TI MET ♦ 

.MBOOY, ITPO,MACE» lOPTt IMOStXLFWTStXPRAMO 
COMMON/COMT/IRMIMJ» IDATAP, lOATARt IDFBUG, IFLUXC, IRSKIPt ISIIBLM. 

■ .ITRIGR,MFN0,MSTART» NC fMFRFO,NINTtMIMTl »MTT*MTZ 

COMMOM/LRAO/IEZ, I ROMLY , I MPOMt L INFS ♦ MF , MFT A X t MSR , ROF , IIF » XOT I L , XMOL 
COMMOM/SFLUX/ORI ( 3 ) tDIFORWtFP »FM 
COMMOM/OCMX/ OCML 

COMMON /CHEOT/COMV( 101 ) ♦ XL AMRO ( 10 1 ) t OELT ( 10 1 , 1 9 ) , F (10 1 , 19 ) .DFBAR ( 
1101),HALL(101),0FDL(101) > 

SFMIS=0.0 

MMP=51 • ■ 

20 CALL RAOIN 
CALL TRANSP 


AR A00190 

AR AOn2<iO 
AR Ann?50 
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r:)RTFMp=ORi ( 1 ) 

VX( l;MY)=FIMI I 1 ;my )-FIPI ( 1 ;mY)+TLCM( 1 ;MY)-TLCP( 1 ;MY) 5 

CALL CnniM|YY,VX,MY»FTA»OR»IF) 

CALL M0FRI\MQR»BF2tIF»ltl»NMP) 

KF?(l;IF)=BF2( l;IF)/nFLTA 
0R( 1 : IF)=-QR{ 1 ; I F) 

IM=IF-1 

IM1=IM-1 

cnMV( l;IMl )=(FTA(2 ; IMI )-fta( 1; IMl ) ) /{ fta ( r ; IMI )-FTA(2; Imi ) ) 

XLAMBOi 1 ; IMl )=1 ./Cn\'V( 1 ; IMl ) 
nFDL( 1 ; IMI) =1. / ( l.+cnMV( 1 ; IMi ) ) 

HALL(l;IMl )=l./l l.+XLAMBn( l; IMl ) ) 

BF2 ( 1 ; IMl )=0.5>iM DFDL( 1 ; IMl )#BE2( 1 : I Ml ) +B F2 ( 2 ; I Ml ) +H ALL ( 1 ; IM 1 ) >;« 

1RF2(B;IMD) 

ORI(l)=QR(l) APAHOBBO 

ORI ( 2 ) =OR ( IMPnM) 

ORI (3)=OR(IF) ARAnOBBO 

niFORW=l ,0-0RTFMP/0R( 1 ) 
niFORW=ARS ( DIFORW) 

WRITF(6,^0) QRTFMP ,QRI ( 1 ) ,DIFORW 

40 FORMAT! IX, 'ORTFMP = ' »F12.5, ' OR I ( 1 ) = ' , FI 2. 5, ' niFORW=', 

. F12.5) 

IF(inFBUG.FO.O) GO Tfl 401 

WRITF( 6,900 ) ARAnn630 

900 FORMAT! 1H1//43X, 'RADI ATIVF FLUX VS. FREOIJEMCY - AEROTHERM MODFL • // 

. 4X,26! 1H-) , 'CONTIMIJUM' ,54! 1H-) , 'LIME GROUPS ', 25 ! IH- ) ) 

WRITF!6,901 ) FTA! 1) , FTA ! I MPOM ) , FT A ! IF) ,FTA! 1 ) ,ETA! IMPOM),ETA! IF) 

901 FORMAT! 1H0,6X ETA = • , F 1 6 . 2 , F21 . 2 , F16 . 2 , F29 . 2 , F2 1 . 2 , F 16. 2/6X , ' FR FO 

. . ' ,4X, '0-MINUS ' ,4X, '0-PLUS* ,4X, '0-MIMUS ' , 4X , ' 0-PLUS ' , 4X , '0-MI Ml IS * , AR A006Q 
. 9X, • FRFO. • ,4X , ' 0-MIMUS ' ,4X, 'O-PLUS ' ,4X , ' O-M IMUS '.,4X , ' O-PLUS ' , 

. 4X, '0-MINUS' ) 

MVMX=MAX0!NHV ,NIH\/C ) 
no 400 I=1,NVMX 
WRITF!6,902) 

902 FORMAT! IH ) 

IF! I .GT.NIHVC ) GO TO 360 ■' 

WRITE! 6, 903) I , FH VC ! I ) , ! F I MC ! I , J ) , F I PC ! I , J ) , J = 1 , 2 ) , F I MC ! I *3 ) 

360 IF!I.GT.MHV) GO TO 400 

WRITE! 6,9 04) FHV! I ) , ! F I ML ! I , J ) , F I PL ! I , J ) , J= 1 , 2 ) , F IML ! I , 3 ) 

400 COMTIMUF 
J=MinPMT 

WRITE! 6,905) F I M I ! 1 ) , F I P I ! 1 ) , F I M I ! J ) , F I P I ! J ) , F T M H MY ) , 

. TLCM! 1 ),TLCP! 1),TLCM!J),TLCP! J ),TLCM!MY) 

401 CONTINUE 

FP=FIMI ! 1 )+TLCM! I ) 

FM=FIPI ! 1 )+TLCPI 1 ) 


ARAn07?0 
ARAn0730 
AR A00740 
AR A00750 
ARAD076O 
ARAn0770 
AR Ann7Bn 
AR An0790 
AR AnOBOO 
ARAOORIO 
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V'lRITFC 6,906) nFLTA,0RI ARAnnfl50 

90^ FRRMAK lH+,I3,FB.3»E11.3tF10.3»F11.3,F10.3,Fll.3) ARAnOPlO 

904 FORMAK lH+,70X,F8.3tF11.3tF10.3,E11.3,E10.3,F11.3) ARAn09?0 

905 . FRRMAK IHO, ' TOTAL FLI )X ' , 2 { E 1 1 . 3 » El 0. 3 ) , FI 1 . 3 » 1 AX ♦ 2 { E 1 1 . 3 , E 1 0, 3 ) , ARAO 

, El 1 .3 ) AR An0940 

906 FOR.MATdHO,* DELT A= ' FI 5 . 6 , ' CM. RAOIATIVF FLUX ='3F15.6,. 

.'WATTS/CM — 2 ' //4X, 125( 1H-) ) 

IF( IROMLY.GT.O) GO TO 20 
RFTURM 

FMO ' ARAnin 20 


SURROUTINF RAOIM 


RFAL MOLEFltMW 

CnMMnN/TRNV/P2l51) ,T2( 51 ) ,55021 15) ,M0LEF1 ( 51 , 2 1 ) , P25 , T25 , P F AC , TF AC 
COMMnN/CHEOC/MW( 19) ,5YMB( 19 ) , A A ( 1 9 , 5 ) , MUEL ( 5 ) , A A A { 1 01 , 1 9 , 5 ) 
CnMMnM/CHE0M/NE,M5 ,MA ,NN) 

COMMOM/CTRL/IE, inUTPT,Mt MITtMUMB, OVL Y , ROL Y , NMP . T I MET , ■ 

•NBOnY, ITPO,MACF, lOPT, INn5,XLEWl5,XPRAMn 
COMMOM/CONT/IRNINJ, IDATAP, IDATAR, lOEBUG, IFLUXC, IR5KIP, I5IIBLM, 

, ITRIGR ,MENn»M5TART , MC , MFR EO , M INT , Ml NT 1 , MTT , N'TZ 

COMMOM/GEOMER/ G0UM(14),RN 

COMMON/LRAn/IFZ, IRnMLY,IMPnM,LINFS,MF,NFTAX,M5R,RnF,UF,XnTIL,XMnL 
CnMMON/PRnB/ETA( 51 ) ,F(51),BE1(51),BE2(51 ) ,TRC( 51 ) ,TDTP( 51 ) , 

.COMTFl ( 51 ) ,C0MTF2( 51),P2P2(51) 

CnMM0M/5MALL/ OUMI T { AO ) , I D GE ( 6 ) 


COMMON/ A ER AD/ DELT A , I MRE AD , K 1 , K2 ,MAE5 , MBL P , MHV , M I , N I C , N'l HVC , 

. M5HV,NXI,MY,TW,C2,MIDPNT,NTRAM5,5F( 5) 

C0MM0N/CHE0R/AHV( 50) ,AHVLI 25) ,EP5( 56) , FF I 300 ) , FH\/C ( 50) ,FHV( 25) , 
.FHVM(25) ,FHVP(25) ,GAMP(300) , GEE { 56 ) , GUP ( 300 ) , HVL ( 300 ) , I A ( 9 ) , 
.NCRC( 20) ,ND(300) ,NKK( 25) ,Nl){ 25) ,TM5W( 50) , TM5WL ( 2 5 ) , XNOL ( 300 ) , 

. alpha (23) ,BETA(7) ,FIML( 25,3) ,FIPL( 25,3) ,FIMCI 50,3 ),FIPC( 50,3) , 
,FHV5(200) ,N5HC(25) 

C0MM0M/CHEQR/XMN( 51,23) ,X0( 51,7) ,MICM( 51 ) ,YY( 51 ) ,TFF( 51 ) , 

.PRF5( 51) ,0R( 51 ) ,FIMI ( 51) ,FIPI ( 51 ) ,TLCM( 51 ) ,TLCPl 51 ) ,BEE( 51 ) , 
.FMIM 51 ) ,TAUT(51 ) ,D1M( 51 ) ,DIP( 51 ) , F I M{ 51 ) , F I P ( 51 ) ,FRM( 51 ) , 

,FRP( 51 ) ,ELN(51 ) ,FI IM( 51 ) , F 1 1 P ( 51 ) , F I MT ( 51 ) , F I PT ( 51 ) ,LMU( 51 ) , 

,SK( 51 ) ,DSK( 51) ,XF( 51 ) , EXPT( 51 ) ,XTX( 51,3) ,VX( 51 ) 
COMMON/CHEOT/COMV( 101 ) ,XLAMBD( 101 ) ,OELT( 101 , 19 ) , F ( 101 , 19 ) , DEBAR ( 
1101 ) ,H ALL ( 101 ) ,DFDL( 101) 

DIMENSION EMSW(1),FMSML(1)^ 

EQUIVALENCE (AHV,EMSW) , (AHVL,EMSWL) 

EQUIVALENCE (EMSB,EMSBL) , (TMSB,TMSBL) 

NAMELI ST/ARAD/ AH V, AHVL , TMSW, TMSWL , NKK , TW , NCRC 

IF( INREAD.GT.O) GO TO 250 

INRFAD=INREAD+1 


RADI0300 


RADI03A0 
RADin35D 
RADI 0360 
RAOI0390 
RADI0470 
RADI04B0 


C1=0. 
C3 = 2. 
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10 

?n 

<575 

^0 


900 

901 

902 

1^0 

950 

ofn 

160 

951 

960 

961 

962 


FL1=1. 
FLG = 1 . 
NFRR=0 


TW=1.0 

RFAr)(5»ARAn,FM0 = 20 ) 

WRITF( 6,ARA0) 

GO TO 30 
l*'RITF(6,975) 

FORMAT! '1 AFROTHFRM DATA PACKAGE NOT FOUND') 

GO TO 250 
CONTINIJF 

RFAO( 5*900 )NHV»NAFS»NXI 
RPAO(5»901) (GEE( I ) , I=1,MAFS) 

RFAD(5,901) ( EPS! I ) , 1=1 ,NAFS) 

RFAn!5,901) !FHVM! I) , I=1 ,nHV) 

READ!5,901) ! FHV P ! I ) , I =1 ,NHV ) 

RFAO!5,901) !FHV !I),I=1,NHV) 

FORMAT!40I2) 

F0RMAT!6E12.4) 

IF!WXI.GT.O) RFA0!5,900) ! I A ! I ) , I = 1 » NX I ) 

RFAO!5»900) !MII! I ) * I = 1,MHV) 

IS = OP.SSUM!MlJ! 1 :MHV) ) 

RFAO!5,902) !ND!I)tHVL!I)*FF!I)tGAMP!I)* XMOL ! I ) » GUP ! I ) , 1 = 1 , IS ) 
FORMAT! I2,10X,2E12.1,3E12.2) 

XNOL! 1 ; IS )=1. 


RA0I0540 

RADI057n ’ 

RADI05R0 

PAni0590 


RADI0620 

RA0I0670 

RA0I06R0 

RA0I0690 

RAOIOTOO 

RADI0710 

RA0I0720 

RAni0730 

RADI0750 

RADI0760 

P ADIOR 10 
RAniORPO 


no 140 1=2, IS 

IF!HVL! I ) .GT.HVL! I-l ) ) GO TO 140 
MRITF!6»950) HVL!I) 

MFRR=1 

CnNTIN'IJF 

FORMAT ! IHO, ' LIME CENTER FRFOUFMCY AT 

RFAn! 5,903) MIHVC 

RFA0!5,901) ! FH VC ! I ) , I =1 , MI HVC ) 

F0RMAT!24I3) 

no 160 1=2, MIHVC 

IF!FHVC!I ).GT.FHVC!I-D) GO TO 160 
'■•|RITE16,951 ) FHVC!I) 

NFRR=1 

COMTIMUF 

FORMAT! IHO,' CONTINUUM FRFOUFMCY AT ' 


RAniORTO 
RAniORRO 
RAOTORaO 
R .Any 0900 
RAnjOQlO 

',E9.3,' OUT OF SFOUFMCE'IRA 

RAni09fiO 
RAni0990 
p Aonooo 
RAnilOPO 
RAD I 10,30 
RADIIO^O 
RADI 1050 
RAnri060 

F9.3', OUT OF SFOUFMCF') RA 


WRITF!6,960) 

FORMAT! IHl ,60X,8HTARLF II) 

WRITF!6,961) 

FORMAT ! 6H GROUP , BX ,2HHV , 12X , 3HHV+, 11 X , 3HHV-, lOX , IHM ,7X ,4HK ! I ) ,6X , 
5HHV! J ) ,8X ,4HF ! I ) , 9X, 6HGAM! I ) , BX,6HNnL ! I ) ) 

FORMAT !I^,F12.3,F15.3,F14.3,I11,I9,F12. 3,1P2F14.2,0PF14.3) 


RADI 11 in 
RADI 1120 * 
PAOri 130 
RADH140 
RADIll 50 
RAOI 1170 
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96^ 


170 

1«0 

200 

96 ^ 

965 


967 

210 

2 20 
96R 
969 

250 

255 
2 60 


Fnt5MAT(5ftX»I?»F12.3»lP2F14.3,nPF14.^) 

ici=n 

nn no i = itNHV 
IC2 = IC1+MI)( I ) 

iRITFnnfi? ) I ,FHV( I ) , FHVP( I ) ,FHVM( I ) ,MIJ( I ) ,MP( ICl ) ( ICl ) , 

FF( ICl) fGAMPI ICl) *XMm.( ICl ) 

’lF( IC1.FQ.IC2) GO TO 180 
IC3=IC1+1 

nn 170 J = IC3fIC2 ^ / n 

WRITF(An63) MD( J) tHVK J) »FF( J) t(TAMP( J) fXNDL( J) 

IC1 = IC2 

COMTIMUF . , , 

WR'I TF ( 6 »964 ) ( I 1 1 =1 » 20 ) ♦ I NCRC ( I) » 1 = 1 » 20 ) 

FOR'MAK IHl ,51X, 'RADlATiriM CONTROL NI.IMBFRS • / ( A8X ♦ 20 I 2 ) ) 

FORMAT (BOXf'RAOIATIVF BOUNDARY CONDI T T ONS • / 4 X ♦ 2 ft I IH- ) » 'CONTINUUM ' »R 
RMlS- K 3 X 25 I 1 H-) 'LIN CROUPS • , 25 { 1 H- ) /2 ( 13 X , • UAVF • , 9 X , ' FM I TT ANC 

:f",}oxl:?RlNsinTi;CP',3Xl/2l5X..FRFO. LENGTH , M'"'"’ 

WALL /OUTFR BOUND. ' t 2X ) /5X, M EN) (A) ,51X« ( FV ) (A) ) 


RADII 1 80 
R AOI 1190 
RADI 1 POO 

RA0I121 0 

RAOM 2 20 
RADI 1230 
R AOn 240 
RADI 1250 
RADI 1 270 
RADI 1280 
RADI 1290 
RADII 300 
R AOI 1320 
RADII 340 


R AOn 3ft0 


NW=MAX0(NHV,NIHVC) 

DO 220 I=ltNW 
FMSB=0.0 
TMSB=1.0 
MRlTF(fe.9ft7) 

FORMAT (IH ) 

1F( I .GT.MIHVC ) GO TO 210 

V1=12400./FHVC{ I ) ' ^ 

WRITF(ft,9ft8) FHVC( r)t'/l»FMSW|I)»FMSB»TMSW(I)»TMSB 
I F ( I .GT.NHV ) GO TO 220 

V2 = 12400./FHV( I ) . . 

WRITF(6.9ft9) FHV( I ) »V2tFMSWL( I )tFMS8L»TMSWLl I ) »TMSBL 

COMTIMUF 

FORMAT! 1H+,F9.3,E10.3,FB.3»F10.3»F11.3,F10.3) 

FORMAT(lH+tftlX,F10.3tF10.3»F8.3»F10.3tF11.3tF10.3) 

GO TO 2ftO 
CONTINUE 

IF( IROMLY.EO.O) GO TO 2ftO 
REAO( 5 f ARAD»ENn=255) 


RADI 1410 
RADI 1420 
R AOI 1430 
RADI 1440 
RADI 14C10 
R AOI 14(S0 
R AnT 14 B 0 
P AO J 1490 
RADI 1300 
RAO 1 1320 
R AOI 1330 
RADI 1340 
RADI 1330 
RADII 3ftO 
RADI 1370 
R A 0 1 1 ft i 0 
RADI 1 ft-^0 


GO TO 2ftO 

IR0NLY=-1 

RFTllRM 

CONTINUE 

r>n 240 N=i 4 1 E 

IF( ETA(N) ,GT.0.5)GO TO 240 
IMPON-N 


RADI IftPO 
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?40 CflMTIMDF 

IF(FTA( IMP0N)-0,5.GT.0.'>-FTA( IMPOM-I ) ) I MPHM= T MPON- 1 

MI = IF 

N'Y=IF 

MinPMT=IMPriM 

PRFS( l;TF) = P2S>:'PFAC»^P2(l;IF) 

TFF( 1: IF)=T2S*TFAC>l‘T?( l: IF) 

YY(1 ; IF)=FTA( 1 ; IF) 
on 2 FO w=l , IF. 

pan MICM(M)=M 

IF(TW.NF,0,0) TW = TFF( 1 ) 

0FLTA = 30.4p5:«RN*SSn2( M) 

H05 CnMTIMUF 

C2 = ?.0«'nFLTA 
I)f1 ^40 1 = 1 , I F 
TX=1140(S.0/TFF{ I ) 

IRK = 0 
MCFS=0 

^10 IRK=IRK+1 
NICF=0 

X0( I , IRK )=0.0 
^20 mCFS=MCFS+1 
MICF=MICF+1 

XQ{ I »IRK )=X0{ I , IRK)+GFE( MCFS )*FXP(-FP-S ( MCFS )^«TX ) 
IF(MCFS.FO.NAFS) GO TO 340 

IF(NICF-O) 320,310v310 v 

340 Cn^lTIMUF 

nn 440 1=1,21 
on 360 J=1,MS 

IF( ALPHA { I ) .FQ.SYMBI J ) ) GR TO 400 
360 CRMTINUF 

XMM( 1, I ; IF)=0. 
on TO 440 
400 JJ=J 

XMN( 1 , I : I F )=7.3398621«PRFS( 1 ; I F)«MRLFF1 (1,JJ:IF)/TFF(1;TF) 
440 CRMTIHtlF 

XL AMRO ( l:IF )=VSRRT{ TEFI 1 ; I E ) : XLAMROI 1 : IF ) ) 

CRN'V/( 1 ; IF )=XNM{ 1,5:1 F ) / ( 4,83F15*TFF( 1 : I F ) ^'XL AMRO ( 1 : 1 F ) ) 
XLAMBOI 1 :IF )=1160A.0/TFE( l: IF) 

HALLI 1; IF)=-2.R*XLAMRn( 1 : IF) 

hallI 1 : IE)=VEXP (HALL! 1 ; IE) :HALL( 1 : IF) ) 

OFOLI 1 : IF ) = 10.»l'XMM( 1 ,4; I F)4HALL ( 1 : IF )/X0| 1 ,1 : I F ) 

HALL( 1 :IF) = 1.224'XLAMB0( l;IF) 

hall ( 1 ; IF)=VEXP(HALL ( I : I F ) tHALL ( 1 : IF ) ) 

XMM( 1 , 16; I F )=5. 0«0FDL( 1 : 1 F)«CRM\/< 1 : I F ) ALL ( 1 : I F ) / XO ( 1 , 1 ; I F ) 
HALL ( I ; IF ) =-.0353>;«XLAMBn( 1 : IE) 


RAP 1 1760 
RAPI 1730 
RAOT 1790 


R/\nn RQo 
R API 1920 
RAPT 1960 
RAPT 1970 
R APT19R0 
RAPI 1990 
RAPI2000 
R APT ?r) 1 0 
R APT2030 

RAPI 2040 

RAPT 2050 
RAPI2070 
RAPI 2030 
RAPI 2090 
RAPI 21 00 
RAPI21 10 
R API21 20 


RAPT 21 «0 
RAPI 2 ] 90 

RAPT2240 
RAPI 2270 

R API 2300 


5Z0 


550 

550 


2 ;IG) 


HALL(l;IE)'=VEXP{HAU(l;IF)!HALL(l;IE)) ■ ■ 

DFBARI l;IF)=-1.48*XLAMBD( iJlPr 
debar(i;if)=vfxp(oebar(i;ie)!DPBar(i,ie)) 

XMM(l»17;IF)=CnNV(i:IF)*XNN( lf2; IE)>!‘(A. + 2.>'^HALL(l;IF) )/(X0( 1, 

l^OFRAR ( 1 ; I F ) ) 

HALL( l;IF)=-.75A0»i'XLAMHD( l;IE) 
uMiM*TPl=\/FXP(HALI(l!lE)5HALL(l*IF)) 

XMN 1 1 » IP : I E ) =CnMV I 1 ; I E )#XNN ( 1 1 IAS I E ) / ( XO ( 1 » a; I F ) #HALL 1 1 5 1 E ) 

HALL( 1:1E)=-1.250#XLAMBD( ISIE) 

XNmi!i9;IF)=A!icOMV{ i5lE)*XNN(l»i2SlE)/(XO(lt3Sl^ 

■ 1 : 1 F 1 


HALL( 1 ;IE)=VEXP(HALU 1 ! IE) SHA 

XMMIl»lP:IE)=CnMVl 1 ;IE)#XNN( 1 
HALL( 1 ; 1 E)=- 1 . 250 #XLAMBD( I S IE 
hall(i;ie)=vexp(hall( isie) shAui. 
xnn(i, 19 ;ie)=a.#comv{ i;iE)*XNN(: 

HALL( 1 ;IE)=- 15 . 576 >!'XLAMBD( 1 ;IE) ^ 

HAl' I ( 1 s 1 F) =VEXP( HALL ( 1 5 1 E ) SHALL! 1 ; IE ) ) .^^,-,-11 

XNN(l! 20 SlE)=HALL(isIE)«XNN(l, 7 SlE)/C 0 NV(l 8 lE)«(.A 58 + 5 . 1 F-A*TEE(l 

lIE)-l.A 3 BE-a#TFE( 1 SIE)«TEE( Is IE)) 

DO 520 J=l »7 


UU 

XQ(1,JSIF)=1./X0(1»JSIE) 
DFDL ( 1 S IF) = 1.F-A/:'TEF( 1 5 IE ) 
Pkcoi # 1 • T c \ -\i A I nn f n pni (ItlF 


,=1.F-A/:=TEF( 1 5 IE) 

DFDL(lsiE)=VALOG(nFDL(lSlE) SOFOLdSlE) ) 
HALL(15IF)=0.25*0FDL(1SIF) 

HALL! IS IF)=VEXP(HALL( IS IE) SHALL! IS IE) ) 
XTX!1,1 ;IF)=XNN! lt5SlE)#HALL! 1 S IE) 

HALL ! 1 $ I E ) = 0 . 45 «nF 0 L ! 1 S I E ) 

HALL! 1:IF)=VEXP!HALL!1sIE) SHALL! IS 
XTX! 1,2S IE) = XMN! 1,5S IF)’!‘HALL! IS IE) 

HALL! 1 S I E )=0.4B«nFnL! 1 S IE) 

HALL! 1SIF)=VEXP!HALL! 1 S I E ) S HALL ! 1 S I E ) ) 


HALL ( 1 ; I b J i 

HALL( l;IF)=VEXP(HALL( !♦ ic / 

XTX ! 1 , 3 : IE)=XNN! 1 » 5 S I E ) *HALL ! 1 S IF) 

DFDL ! 1 S IE ) =VALnG! XHM ! 1 ♦ 5 S I E ) 5 DFDL! 1 S IF ) ) 

DFDL! 1 ; I F )=0.5667-'DFDL! 1 5 IE) 

VX! 1 ; IE)=VEXP! DFDL! 1 ; I E ) s VX ! 1 S I E ) ) 


DFDL! is IE) 

DFDL! 1 : IF) = U*or>r:» I 
VX! 1 ; IE)=VEXP!DF0L!15 
IE?.=0 

IFIMETAX.lt. IE) IFZ=METAX 
IF!IFZ.FO.O) RFTURM 

CALl”raDGRO!XNN,FIMI ,FIPI tTLCM.TLCP,FMH,REE»FTA,TEF.BF2, 
.NICN»NA,NE»NETAX,MI »MMP,MCnL.IE. IMPOM) 

niy=mftax 

MI=NY 

IF!ME.EO.MA) GO TD 560 
nn 550 I=lfMETAX 


I F { MI CM ( MI ) . LE. MI DPMT ) GO TO 560 


MI=NI-1 

COMTINtJE 

on 600 I=1,MFTAX 
L=MICN( I ) 
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YY( I )=RTA(L ) 

PRFS( I )=PRFS( L) 

TFF(I)=TFF(U 

VX(I)=VX(L) 

nn S70 j=itNcni. 

S70 XNM( I t.n=XNN( L ♦ J ) 
on 5F0 J=l,7 
SRO XO( I ,J )=XO( L» J ) 
nn <5RO J=lt3 
XTX( I»J)=XTX(LtJ) 

!F(L.LF.IMPnN'» mIDPMT=I 

CnMTTN'UF 

RFTHRM 

PMO ■ ■ 

SMBRnilTIMF R AnnRn ( Mn,MnN, SON* FF2M» SWTt T2M » *'ITS » FT A »T2 t BF2» Y» 

MA »MF,MFTAX »MI fNPtNR » I F t IMPON') 

CnMNinM/CHFOT/CnMV |101)fXLAMRn(101)«nFLT(101tl9)»F(initl9),0FBAR( 

1101) ,HALL( 101 ) ,nFnL( ini ) 
niMFMSinM RI51) 

RFAL N 0 ( MP ,MR ) tMOMl 1 ) »SnM( 1 ) tSWTl 1 ) tt*'TS ( 1 ) 

RFAL T2( 1 ) ,T2N'( 1 ) ,BF;?( 1) ,flF2M( 1 ) tFTAC 1 ) 

IMTFGFR Y(l) 

HIT R 

SnM(l:IF)=0. 
on 20 1=1, MR 

CALL MnFRIV(Mn( 1,1 ) ,MnMtIF,l,l,MMP) 

OFOL ( 1 ; I F ) =VABS ( MOM ( 1 ; I F) ; OFOL ( 1 : IF ) ) 

SON( 1 ; IF)=snM ( 1 ; IF )+nFOL( 1 ; IF ) 

20 comtikmif 

CALL M0FRIV(BF2,WTS,IP,1,1,MMP) 

CALL mOFRIVMWTS,BF2M,IF,1,1,M''''P) 

CALL MnFRI\MT2,T2^',IP,l,l»MMP) 

H( 1 ; I F )=BF2 ( 1 ; I F ) ,GT.O. 

HF2M( 1 ; IF ) =OBVCTRL ( 0 . ,B( 1 ; IF ) ;RF2M( 1 : I F ) ) 

WMAX=FLnAT( IF) /FLOAT (MFTAX) 

IM=IF-1 

IM1=IM-1 

nMAX=OOSM AX ( SOM ( 2 ; IMl ) ) 

OFOL( 2: IMI )=\/ARS( BF2M( 2: IMl ) ;nF 0 L( 2 ; TMl ) ) 

RMAX=QR$MAX ( OFni. ( 2 : 1 Ml ) ) 

HALL ( 2; I Ml )=\/ABS { T2M| 2: 1^1 ) ;HALL( 2; TMl ) ) 

TMAX=OBSMAX( H/il.l. ( 2 ; IMl ) ) 

IF(RMAX.LT. l.F-10) RMAX=1.F100 

TWTS=1./TMAX 

RWTS=1./RMAX 

0MTS = 1,7DMAX 


RAni ?7f'0 
RAniPTTO 


'•ITS(1:IF) = 1. . - 

''ITS(2;IM1 )=nwTS*SnM(2! IMl)+RWTS#nFDL(2; I^>l )+TWTS«HALL(2;TM1 ) 

H{ ItlMl )= wtS(2;Im1).LT.1.0; 

i'JTS( ? ; IMl )=OBVCTRL( 1. t B( 1 : IMl ) : WTS( 2; IMl ) ) 

WSIIM=PRSSIJM( WTS(2: IMl ) ) 

SPWT=WSUM/FLnAT(MFTAX) 

MW=MFTAX/5 

K( 1;NW)=wtS( 1;mW).LT.SPWT 

WTS( l;NW)=Q8VCTRLl SPWTtR( i:mw) :WTS( ) 

IF(N'A.FO.NF) -Gn TO 70 

IF(MI.FQ.IF) GO TO 70 ' 

Ml=IMPnM-MW/2 

MP=MW+1 

. i<{ l;M2)='-lTS(Ml;M2).LT.SPMT 
WTS( Ml ;N2 )=08VCTRL(SPi'JT,R( 1;M2 ) :MTS( Ml ;M2 ) ) 

70 . COMTI MDF 

8MT(1)=WTS{1) 
on PO M=2, I F 

. SWT(M)=SWT(N-1 )+WTS(M) 

«0 . CONTI WIJF 

W=SWTI IF) /FLOAT! MFTAX) 

Y(l)=l 
Y( 2)=2 
1=8 

Y( MFTAX ) =I P 
on PO M=3,IM 

IF! SMT(M)/FLnAT( I ) .LT.W) GO TO 90 
Y ! I )=M 

1=1+1 • 

PO COMTI MOF , , 

Y!NFTAX~1 )=IM 

Y! MFTAX )=IF . . . • . 

RFTIIRM . ‘ - ^ 

FMD ; : 

SlIBROliTINF TRANSP 
CALL C0MTM2 
... CALL- LIMT2 
r’fturm 
FMO 

BLOCK OATA AFRORAO 

COMMON/ AFRA’D/ OFLTA, iMRFADtKl tK2tNAFS,MRLP*MHV»MT tNICtMIHVC» 

. MSHVtMXI ,MY»TN,C2»MinPNT,MTRAMS»SF! 5) 

COMMON /CH FOR /AHV! 50) ,AHVL! 25)tFPS!55),FF! 300 ) ,FHVC ! 50) ,FHV!25) t 
. FHVM ! 25 ) , FH \/P ! 25 ) ,GAMP ! 300 ) » OFF ! 55 ) , Gl IP ! 300 ) , H\/L ! 300 ) ♦ I A ( 9 ) » 
.MCRC! 20) ♦ MO! 300) »NKK ! 25 ) t NU( 25 ) t TMSW ! 50 ) ,TMSWL !25) ,XMOL!300) ♦ 
.ALPHA! 23) ,BETA!7)»FIML!25,3),FIPL!25t3) tFIMC! 50,3 ),FIPC!50»3) , 


TPANon2n 
TP AM0030 
TR AMOO^O 
TR AM0050 
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.FH\/S( 200),MSHC(?5) 

CnMMnN/CHFOR/XMM( ♦ XQ ( 5 1 »7 ) t M ICM ( 51 ) t YY ( 51 ) tlFFC 51 ) , 

.PRFS(51 ) ,0R(51 ) tFIMI (51 ) , F I P I ( 5 1 ) t TLCM ( 51 )»TLCP( 51 ) »HFF(51 ) ♦ 

.FMU( 51 ) ,TAUT( 51 ) »niM( 51 ) tnIP( 51 ) ,FIM( 51 ) ,FIP( 51 ) tFP.M( 51 ) » 

,FRP(5l) »FLM(51)tFIIM(51),FIIP(51) tFlMT(51),FTPT(51)»I.MII(5l)t 
.SK(51 ) ,0SK(51 ) »XF( 51 ) ♦FXPT(51),XTX(51f3) »VX( 51) 
CnMMnw/cnNT/IRMIMJ, lOATAPtinATARt inFBIIGt IFLUXCt IRSKIP, ISHRLM, 

. ITRIGR,MFNn»MSTARTt ' N'C tMFRFOtMIMT»N'INTl »MTT,MTZ 
CniMMnM/LRAn/IFZ ♦ IR0MLY» IMpnMtLIMFS»MF,MFTAXtMSR,PnF,!IF,XnTIl.,XMnL 


f)ATA 

(ALPHA! J) ,J=1,20)/6H 

n+ , 6M 

n,6H 


N, 

FMV 

01 ?n 

• 

6H F-,6H n2»6H 

N2,6H 

cn,6H 

H2 

C2, 

FMV 

0130 

• 

6H CN,6H C,6H 

C+,6H 

H,6M 

Mn,6H 

M-, 

FHW 

0140 

• 

6H n-,6H H-,6H 

C-,6H 

M2 + / 



FMV 

0150 

DATA 

ALPHA(21)/6H C3/ 







DATA 

(BFTA( J),J = U7) / 6H 

N, 




FMV 

0170 

• 

5H 0,6H Ct6H 

H,6H 

M+ , 6H 


c+/ 

FHV 

OIRO 

OATA 

AHV, AHVLtTMSW, TMSWL/75#! 

.0,75«0. 

0/ 



FMV 

0200 

OATA 

NCRC,NKK/20*1,25#7/ 




- 

FHV 

0220 

OATA 

INRFAO/0/ 





FMV 

0230 

DATA 

IRONLYtIF?. , lOFBDG/3*0/ 







FMO 






FMV 

0240 

SURRnilTIDF CnMTM 2 





cnMToolo 

COMf^nW/AERAD/ OFLTA , I NR FAD t K1 

«K2,MAFS 

♦MRLPtMHV 

,MTfMIC 

,NIHVC, 

CnNTOlftO 


. NiSHVtMXI ,MY,TH»C2»MinPMT«MTRANiS»SF(5) 

CnMMriM/CHFOR/AHV( 50) » AHVL ( 2 5 ) » FPS ( 56 ) » FF ( 300 ) , FHVC ( 50 ) » FHV ( 25 ) t 
.FHV/M(25) ,FHVP(25) ,GAMP(300) ,G F6 ( 56 ) , GDP ( 300 ) ,H\/L(300) ,IA(R) , 

.MCRC( 20) tNOf 300) »MKK( 25 ) ,ND( 25 ) tlMSWC 50 ) ,TMSWL ( 25 ) . XMOI. (300 ) , 

.ALPHA(23) ,BFTA(7) ,FIML(25»3) t F I PL ( 25 ♦ 3 ) » F I MC ( 50 » 3 ) , F I PC ( 50 , 3 ) , 
,FHVS(200)tMSHC(25) 

CnMMnM/CHRQR/XMM( 5 1,23) , XO ( 5 1 , 7 ) , M ICM ( 5 1 ) t YY ( 5 1 ) . IFF ( 51 ) , 

.PRFS(51 ) ,0R ( 51 ) ,FIMI ( 51 ) ,FIPI ( 51 ) .TLCM( 51 ) ,TLCP( 51 ) ,RFF( 51 ) , 

.FMU( 51 ) ,TADT( 51 ) tniM(51),niP(51),FIM(51),FIP(51 ) ,FRM(51 ) , 

.FRP (51 ) ,FLN(51 ) , F II M ( 5 1 ) , F I I P ( 5 1 ) » F I MT ( 51 ) , FI PT ( 5 1 ) ,LMD(51 ) , 

.SK( 51) ,nSK( 51 ) ,XF( 51 ) ,FXPT( 51 ) tXTX( 51 f3) ,VX( 51 ) 

CnMMOM/CHFOT/CnMV( 101 ) ,XLAM8n( 101 ) ,OFLT( 101 ,10) ,F( 101 , 19) ,OFRAR ( 

1101 ) ,HALL( 101 ) ,OFnL( 101 ) 

niMFMsmN tad( 1 ) 

FQDIVALFDCF (TAM,TADT) COMTOPOO 

TW=TFF( 1 ) CnWTOPlO 

J=MIOPMT CnMTOPPO 

niM( 1 ;.\iY)=o. 
nio( 1 ;MY)=0, 

FIMI ( 1 ;NY)=0. 

FIPI ( 1 ;my)=0. 

on 500 K = 1,MIHVC CnMTO'310 

CALL MD(FH\/C(K) ,MY,FMD) 


6o 


( 


CALL TRAMSA(FMII»^!Y) 

4FFW=0.0 . . . 

iF(Tw,FO.‘o.o) c;n in no 

.<PFW=15F33, 7«FHVC (K ) ««3/ ( PXP ( 1 1 ftOA, 0*FM V/C ( K ) /TW )“1 . 0 ) 
no CflMTIMUF 

XJi,.( = AHV(K)«RFF''>H-( 1,0-AHV(K)-TM5 ;w(K ) )*FIP( 1.) 

OFOLC 1 ;MV)=-TAII( 1 ;A'Y) 

DFnL( 1 ;NY) =\/FXP ( nFOL( 1 :hy ) ;OFnL( 1 :my) ) 

FIM( 1 ;NY)=FIM( 1 : MY )+X.IW>i‘nFnL( nWY) 

TF(K.GT. 1 ) GO TO ?10 
SF( 1 )=F1M| 1 ) 

SF(?)=FIP(1) 

SF(3)=FIM(J) 

SF(4)=FIP( J) 

SF( 5)=FIM{MY) 

?10 chmitmiif 

IF(K.r0.1 )Gn in. 350 
FH\/A\/G = n.5*(FHVC(K)-FHVC(K-n ) 
niM( l:MY) = (FIM( l;NY)+FRM(l;MY) )<‘FMVAVG 
DI?(l;WY) = (FIP( i:MY)+FRP(l;hJY) |*FHVAVG 
■ FlMI(l;NY)=FIMI(l;MY)+niMn;MY) 

FTPI { 1 ;NY)=FIPI ( 1 :mY)+OIP( 1;mY) 

3R0 FRM(l:MY)=FIM( in*Y) 

FRP( 1 :.'IY )=FIP( 1 ;mY) ' ' 

FIMCCK.l )=OIM( 1) 

FIMC(K,P)=niM{ J) 

FTMC(K,3)=rMM(MY) 

FIPC(Kn )=niP( 1 ) 

FIPC(K,?)=oiP{ J) 

PTPC ( K , 3 ) =ni P ( MY ) 
son CriMTIMllF 
PFTII'-''I 
p\!M 

<;i iHP.ni !T I i'lF I SLOW ( M, X « Y , SR ♦ R » SLR » YL » MH ) 

OlMFi'iSTOM X( 1 ) ,Y( I ) *SR( 1) ,R( 1 ) .XX{ A) ,YY( 5) .SLR ( 1 ) .YL( 1 

YL ( 1 ) =\/Ai.f)G( Y ( 1 ;<'i ) ; YL ( I ) ) 

CALL SLnPO{M,X,YL. SLR. R) 

SR( I :m)=y( 1 ;M)“-SLR( 
on 17 I=2.M 
xn=x(i )-x( i-i) 
xn?=.5»xn 
XDA.= .;>5*xn 
YS=Y( I )+Y( I-l ) 

Sn=SR( I )-SR( I-l ) 

YD=ABS{Y{ I )-Y( I-l ) ) 

T3 = ABS ( SOilsXn^ ) 


CnMT 0350 

CnMTOBftO 

cnMT03<pn 

coMTOAnn 

COM TO 41 O 
J coMTOA^n 


C^^'T•'>A30 
f OMTOA^n 
COMT0A5n 
CRMTOBAn 
CnMTOATO 
COMTOAHO 
CnMTOAco 
Cni'^'ToyiH' 
C'^'''T0 7 1 O 


I si.noi 20 

I SLOOI, so 
T Sl.oni 40 
I SLO01.7';. 
ISLoni BO 
T SLPO] cn 

isi.onpoo 

I SLO021 0 
-T SI. 00 7 2 r, 


6i 


TS=ABS(Y( I-l ) )+YD 
IF(TB-.15»:»TS)3»3,4 

3 «(i)=R{i-i)+xn2»iMYS-xn/6.«sn) 

(;n TO 17 

4 YY( I )=YUI-1 ) 

xx,(u=xn-i) 

« R = 0 * 

nn 3 J=2»5 
B xx( J)=xx(vi-l )+xn4 

call nCLF ( 5,XX,YY,N.X»YLtSLR) 

IF(M0-1 ) 11, 11,6 

6 Y.MAX=YY(1) 

YMIN=YYI 5 ) 

IF( YY( 5)-YY( 1 ) )7,7,8 

7 YMAX=YY( 5 ) 

YMIM=YY( 1 ) 

p nn 10 J=l,5 

IF( YY( J)-YMAX )9,P, 13 
9 IF(YY(J)-YMIM)13,10,10 

10 COMTINUF 

11 no 12 J=2,5 

SSR=(YY( J )-YY ( J-1 ) )/X04 

12 RR=RR+(FXP(YY( J ) )/SSR)’f'( l.-:EXP(-SSR«xr)A) ) 

GO TO 16 

13 SSR=(YY ( 5 )-YYI 1 ) )/XD 

TT = ARS( 2 .«SSR>:‘Xn)/(YY( 5 )+YY( 1 ) ) 

IF(TT-.00001 )14, 15, 15 

14 RR=Xn2*( FXP( YY( 5 ) )+FXP( YY( 1 ) ) ) 

GO TO 16 

15 RR=(FXP(YY( 5 ) )/SSR)*( l.-EXP(-SSR*Xnn 

16 R ( I )=R( I-l )+RR 

17 COMTINUF 
RFTURN 

FMn 

SURROUTINF COOI M ( X I , Y I , MI , T ♦ ANS » MA ) 
niMFMSION XI n ) ,YI ( 1 ) ,T(1 ) tAMSI 1 ) 

M = ^' I 

IF (N- 2 ) 10 , 30,45 
10 CONTINUE 

ANS(l:NA)=YI(l) 

RETURN 

30 CONTINUE 

CAMS = (YI( 2 )-YI ( 1 ) ) / (Xn 2 )-XI(in >:« (X-XI(l)) + YKU 

ANSI l;NA)=CAMS 

RETURN 

^5 CONTINUE 


lSLnn?30 
lSLon24n 
lSLnn25o 
TSLnn?60 
TSLno?7n 
ISLn02R0 
isi.nn29o 
lSLoo3no 
isi.nn3in 
iSLnn3?o 
TSLno33o 
iSLno34n 
ISL0n350 
ISLn0360 
ISLn0370 
i SLnn3P0 
TSLn0390 
I SLnn4on 
iSLno4in 
ISL00420 
iSLnn4pn 
iSLno44o 
TSLnn45o 
lSLnn46o 
ISL 00470 
iSLno4Ro 
I Sl,n04qo 
ISL00500 
ISL0051 O 
ISLn05?f) 
ISLnOFPO 
TSLn0540 
ISLn0550 
TSLnn560 
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50 

70 

AO 

PO 

P5 

<50 


100 

110 


1?0 

140 


J = 1 

on ?10 IF= 1 ,NA 

X = T(IE) 

COMTINUF 

IF (XI(J)-X) 70,ft0,80 
CONTIMUF 
J = J+1 

IF (J-N) 50»50,120 
CONTIMUF 

Y = YI ( J ) 

GO TO 200 
CnN'TIMIJF 

IF (J-2) 85,90,100. 

COMTINUF . , . 

Y = (YII2)-YI(1)) / (XI( 2 )-XI( 1 )) « (X-XKin + YI(l) 

GO TO 200 
COMTINUF 

JJ = 1 , 

K = 1 
.Vi = 8 

XM2 = ABS( (YI ( J)-YI(M) )/(XI( J)-XI(M) ) ) 

GO TO 150 
COMTINUF 

IF (N-.J) 120,110,140 

COMTINUF 


JJ = 1 . . . ■ ■ -- 

K = J-1 
N = K-1 

X.M2 = ABS( (YI (K)-YI(M) )/(XI (K)-XI (M) ) ) 

GO TO 150 
COMTINUF 

Y = (YI (N)-YI (M-1 n / (XI(N)-XI(M-l)) * 

GO TO 200 
COMTINUF 
JJ = 0 
K = J-1 


( X-XI (M-1 ) ) 


+ 


YI (M-1 ) 


M = K-1 
L = J+1 
150 COMTINUF 

A1 = X-XI(M) 

A2 = X-XI (K) 

A3 = X-XI ( J ) 

XJK = XI ( JI-XI (K) 
XJM = XI ( J)-XI (M) 
XKM = XI (K)-XI (M) 
AL = A2/XJK 
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Cl = A3*A2/(XKM#XJM) 

C2 = -Al«A3/( XKM#XJK) 

C3 = A2«A1/(XJM«XJK) 

S = AL*YI ( J)+( 1.0-AL)«YI(K) 

PI = C1«YI IM)+C2#YI (K)+C3«YI ( J) 

IF (JJ.GT.O) Gn TO 160 
A4 = X-XI (L ) 

XJL = XI ( J)-XI (I.) 

XKL = XI IK)-XI (L) 

C4 = -A4«A3/( XJK#XKU 
C5 = A2*A4/{XJK«XJL) 

C6 = A3>t'A2/( XKL*XJL) 

P2 = C4«YI (K )+C5«YI ( J)+C6*YI (L) 

GO TO 170 
160 CONTIMUF 

XMl = ARS{ (YI ( J)-YI(K) )/XJK) 

IF (XM1+XM2.E0.0) XMl = 1.0 
XK = 1,0-ABS(XM1-XM2)/(XM1+XM2) 

P2 = S+XK«(P1-S) 

IF (M.LT.K) GO TO 170 
XK = PI 
PI = P2 
P2 = XK 
170 COMTINUF 

FI = ABS(Pl-S) 

F2 = ABSIP2-S) 

IF (E1+F2.GT.0.0) GO TO 190 

Y = S 

GO TO 200 
190 COMTIMUF 

XM = AL*Fl«P2+( 1 .0-AL )*E2«P1 
fiO = AL’"Fl + ( 1 ,0-AI. )»F2 

Y = XN/00 
200 CONTINUE 

ANS(IE) = Y ■ 

210 CONTINUE 
RETURN 
FNO 

SUBROUTINE LIMT2 

COMMON/AFRAD/ nPLTA , I MRE AD »K 1 ,K2 tNAES tNRLP »NH\/ ,MI ,NIC,NIH\/C. 

. NSHV,NXI ♦NY,TW»C2,MIDPNTtNTRANS.SF( 5) 

CnMMON/OCMX/ OCML 

COMMON/LRAO/I FZ , I ROMLY , I MPOM, L I NES t MF , NFTA X , ♦ ROF , 1 IF . XDT I L » XMOL 

C0MM0M/CHF0R/AHV( 30) , AHVLC 25) tFPS( 56) ^FF | 300 ) ,FHVC ( 50) tFHV( 25) ♦ 
.FHVM( 25 ) ,FHVP( 25 ) ,GAMP ( 300 ) tGFF( 56) ♦ GUP ( 300 ) »HVL ( 300) » I A( 9) . 
.NCRC( 20) »ND( 300) ,NKKI 25) .NIM 25) »TMSW( 50) ,TMSn(. (25) »XNni.( 300) » 


6k 


LINTOO) n 
L INTO 130 

LINT0210 


.ALPHA(23) ♦BETA(7),FIML(25»3) »FIPL(2‘i,3) ,FTMC(50,3) »FIPC(50,3), 
.FHVS(200)tNSHC(25) 

COMMON /CH FOP /X MM I 51t23)«XO(51»7)tNICN{51)tYY(51)tTFF(*>l), 
,d:^FS( 51 ),0RI51)»FIMI(51)»FIPI(51)»TLCM(51)tTLCP(51)»BFF(51)t 
.FMIK 51 ) ♦TAUT |51)fniM(51)tnlP(51)tFIM|51)fFIP(51)tFRM(51)t 
.FRP(51)»FLN(51)tFIIM(51)»FIIP(5UtFIMT(51),FIPT(51)tLMlM51)t 
.SK( 51 ) ♦DSKI 51 ) ♦XFt 51 ) tFXPTlSn ♦XTX(51 13) fVX{ 51 ) 

COMMOM/CHFOT/CONV 1101) tXLAMBn( 101 ) ♦ OFLT (101,19)tF(101tl9)tnFBAR( 
1101),HALL(101),nFnL(101) 

niMFMSinM S ( 1 ) ♦ TAU( 1 ) tTMlK l)tXIM(l)fXIP(l)rXIMn(l)tXIPO(l) 
FOUIVALFNCE ( OR ♦ S ) ♦ ( TAU ♦ TAUT ) ♦(LMUtTMII) , ( FRM,XIMO) ♦ 

. {FRP»XIPO),(FIM,XIM)t(FIPtXIP) 

FIML( 1 tl ;75)=0. 

FIPL(ltl;75)=0. 

FIM( l:MY)=0. 

FIP(l;NY)=0. 

FI IM( l:MY)=0. 

FIIP( l;NY)=0. . 

niM(i;MY)=o. 

OIP(1;NY)=0. 

XIM(l;NY)=0. 

xiP ( 1 ;ny )=o. 

FIMTC l;NY)=0. 

FIPT( 1 ;my )=0. 

TLCM( 1 ;MY )=0, 

TLCPI i;my)=o. 

XIMOI 1 ;MY )=0. 

XIPO( 1 ;NY )=0. 

IF(LIMFS.FO.O) RFTURM 

K2 = 0 

IF=0 

00 500 K=1,MHV 

K1=K2+1 

K2=K2+NU(K) 

MSL=MU(K) 

IF(NKK(K).F0.0) IF=IE+NSL 
IF(NKK{K) .FO.O) GO TO 500 
BFFW=0.0 

IF(TW.FO.O.O) GO TO 110 

TX=1150A.0/TW 

FHV3 = FHV( K)::”:‘3 

kFFW= 15533.7>:‘FHV3/( FXP( FHV( K )«TX )-l .0 ) 
no COMTIMUF 

XJW = BFFW-^«AHVL( K ) 

CALL Mi|( FH\/(K ) ,MY,FMU) 

CALL TRANSAI FMUtMY) 


L iMTOAqo 
LINTOBin 
L INTO 52 0 
LIMT0530 
L INTO 5 AO 
LTNT0550 
LINT0550 
LINT0500 
L IMTOBIO 
LTA^TOf-AO 
LTMT0550 
LINTOB^n 
LINT0670 
LINTOftRO 
LTMT0F90 
LIMT0700 

LINT0740 
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XjM = Xjm-{ l.-AHVU K )-TMSWL(K ) )»:‘FIPa ) 

DFiil.C l;MY)=-TAil( 1 ;njY) 
')FOI.(l;MY)=VFXP(nFnL(l:MY)JDFDLM:NY) ) 

FIm( 1;MY)=FIM( 1 ; my )+XJW*OFni. ( i:ny) 

|)IM( 1 ;WY )=FIM( i;my) 
niP( 1 ;MY)=FIP| 1 ;mY) 

MK=MKK(K) 

MSHC( 1 ;NSL )=NK 
CALL FRFOIKtCFIU 
L = 0 

nn 3AO JS=1,MSL 
mpPL=MSHC( JS) 

IF=IE+1 

on 250 LK=1,NPPL 
L = L + 1 

CALL MIJLE(FHVS(L) »S) 

TMI J ( 1 ; MY ) = F MU ( 1. ; M Y ) +S ( ] : MY ) 
call TRAMSA { TMII,MY ) 

XJWL=XJw+( l.n-AHVL( K)-TMSWL(K) )*XIP( I ) 

OFDLC l:MY)=-TAtl( 1 ;mY) 

OFOL ( 1 ;MY )=VFXP( nFOL{ 1 ;MY) ; DFOLC 1 ;MY) ) 

XTM( 1 ;MY ) =XIM ( 1 ; MY )+XJWL«OFnL ( 1 ; MY ) 

IFCLK.GT. 1 ) DFHV = 0. 5*( FHVS ( L ) -FH\/S ( L- 1 ) ) 

IF( LK.FO. 1 )Gn in 220 

FIMT( 1 ;MY ) =FIMT ( 1 ;MY )+OFHV/# ( XI M( 1 ; MY ) +X I Mn ( 1 ; MY ) ) 
FIPT( 1 :MY )=FI PT( 1 ; MY )+OFHV=:'{ X I p ( 1 ; NY ) +X I PO ( 1 t MY ) ) 
220 XIMn( 1 ;MY)=XIM( 1 ;MY) 

XIPn( l;MY)=XIP( 1 ;mY) 

?50 COMTIMUF 

FI IM( 1 ;MY ) =FI I M( 1 ; MY )+XMUL ( I F )*F IMJ ( 1 ; MY ) 

P I I P ( 1 ; MY ) =F 1 1 P { 1 ;MY )+XMOL ( I F ) *FI PT ( 1 ; MY ) 

FIMT( 1 :my)=o. 
fipt(1;my)=0. 

3F() COMTIMUF 

niP(l;MY)=FIIP( 1 :MY )-CFIL*DIP( 1;NY) 
niM{ l;MY)=FI IM{ 1 ;NY)-CFIL*niM( 1 ;mY) 

FIIP(1;MY)=0. 

FI IM( 1 ;MY )=0, 

TLCP( 1 ;MY)=TLCP( 1 ;MY)+0IP( 1 :my) 

TLCM( 1 :MY)=TLCM( 1 ; MY ) +DI M( 1 ; mY ) 

FIM|.(K, 1 )=0IM( 1 ) 

F I ML ( K ♦ 2 ) =0 1 M I M I OPMT ) 

F IM|. ( K, 3 ) =ni M( MY ) 

FIPL{K,l)=nTP| 1 ) 

FIPL(K,2)=0IP(MinPMT) 

FIPL(K,3)=niP|MY) 


LTMT0770 


L IMTOQAO 
. LTMT0O70 
LTmtOQRO 
L IMT0990 

LT Mil non 
LIMT103n 
LIMT1040 
L IMTIOPO 

LI MTU 30 
LIMTIUO 


LIMT1210 


LIMT] 530 
L TMT1.5A0 
LTMTI 550 
LIMT 1550 
LTMTI 570 
L IMT15P0 
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500 


CONTINIIF 

LI NT 1^00 

RFTURN 

. LIMTlft20 

END 

SUBROUTINE MU(HV,MY,XAPNU) ’ 

LINTlft30 


COMMON /CH FOR /AHV( 50) , AHVL( 25) ,EPS( 5ft ) »FF{ 500 ) ♦ FHVC ( 50) ,FH\/( 25) t 
.FHVM( 25 ) ^FHVPI 25) »G AMP( 300) , GEE ( 5ft) » GUP ( 300 ) , HVL ( 300 ) , I A ( Q ) ♦ 
.NCRC( 20) tND(300) ,NKK( 25) » NU ( 2 5 ) ♦ TMSW ( 50 ) ,TMSWL(25) »XMni.(300) , 
,ALPHA(23) ,BETA(7) ,FIML(25,3) tFIPL(25t3)»FIMC( 50,3) »FIPC(50,3) ♦ 
,FHVS(200),NSHC(25). 

C0MM0N/CHFQR/XNN( 51,23) ,X0( 51,7) , MI CNM 51 ) , YY( 51 ) ,TEE( 51 ) , 
.PRFS(51),QR(51),FImI{ 51),FIPI(51),TLCM(51),TLCP(51),BFF(51), 
.FMU(51),TAUT{51),niM(51),nlP(51),FIM{51),FIP(51).,FRM(5l), 
.FRP(51),ELN(51) ,FliM(51) ,FIIP(51) ,FIMT(51) ,FIPT(51),LMU(51) , 
.SKI 51 ),DSK( 51),XF( 51 ) ,EXPT( 51) ,XTX( 51,3) ,VX( 51 ) 

DIMENSION XAPMUm,XKT(l), Til) 

FOllIVALFNCF I XKT , OR ) , I T , TEE ) 


ALOGT|0)=ALOG10(0) 

Ml) 

00^0 

S0A=7.25E-16 

Mil, 

ooso 

XM0L=1.0 

MU 

0060 

HV3 = 1./HV'':‘#3 

MU 

0070 

XLAM=1.24/HV 

MU 

OOPO 

no 1000 1=1, NY 

Ml) 

0130 

L=I 

Mil 

0140 

XKT(L)=B.62F-5*T(L) 

MU 

0160 

TX=11606.0/T(L) 

MU 

0170 

HFFI I ) = 15P33.7/(HV3*(EXP(HV»!«TX)-1.0) ) 

MU 

0190 

A0= XNN(I,2) 

MU 

0?^0 

AN= XNMI 1,4)’ 

MU 

0?50 

AI= XNNI 1,5) 

MU 

0260 

A02=XNN(I,6) 

MU 

0270 

AN2=XNN|I,7) 

MU 

02P0 

AC0=XMM(I»8) 

MU 

0290 

AH2=XNM(I,9) 

MU 

0300 

AC2=XMM( I , 10) 

MU 

0310 

ACN=XNN( 1,11) 

MU 

0^20 

AC= XNNI 1,12) 

MU 

0330 

ACP=XNNI I ,13) 

MU 

0340 

AH= XNNI 1,14) 

Mil 

03PO 

AMO=XNNI 1,15) 

Ml 1 

0360 

ANM=XNN| I , 16) 

MU 

.0370 

AOM=XNN| 1,17) 

MU 

03P0 

AHM=XNNI I , IB ) 

MU 

03^0 

AN2P=XNN| I ,20 ) 

MU 

0400 

0M = 0. 

MU 

0420 

DM0=0, 

MU 

0430 

X0M=0. 

Mil 

0440 
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XHM=0. 

MU 

0450 


yMM=o, 

MU 

0460 


0M?P=0. 

MU 

0470 


XCM=0. 

MU 

04 RO 


nnHS=o. 

MU 

0490 


nMHS=0. 

M(l 

0 500 


01=0. 

XIN=1,492E+05*I 1.-FXP(-HV/.431) ) /( ( XLAM*«5 )’M FXP (HV/ .431 )-l, ) ) 

. MU 

0550 

13 

XM=14.3/XKT(L) 

MU 

0560 


Xn=13.4/XKT( L) 

MU 

0570 


XI=25.5/XKT(L) 

MU 

0580 


nMM=4.0+10.n«FXP (-2. 3fi/XKT( L ) ) + 6 .0*FXP { -3 . 57/XKT(L ) ) 

MU 

0590 


OnM=9.0+5.0>:'FXP(-1.98/XKT(L) ) + FXP(-4.1fi/XKT(L ) ) 

MU 

0600 


0CM = 9.0+5 .O’i'EXP ( -1 .26‘>/XKT( L )) + EXP(-2.6B/XKT(L) )+5.0»l‘PXP (-4. IR/ 

MU 

0610 


1XKT(U ) 

MU 

0620 


OCPM=6.0+12.0';'FXP|-5.33/XKT(L) ) 

Ml) 

0630 


OHMA = 2. +R.^‘<FXP(-10,2/XKT(L) ) 

MU 

0640 


CALL ZH\/(HV,Zn,ZM,ZI ,ZC) 

MU 

0650 


XX=HV/XKT(L) 

MU 

0660 


FPC=1 .O-FXP(-XX) 

MU 

0670 


CFTA=13.A/XKT( L ) 
HFFI=5040.0=.'«HV*HV*H\/*FXP(-XX ) 
IF{WCRC(D) 600,2541t600 

MM 

0690 

600 

CONTINUE 

IF(H\/-0.B5) 2540,2540,2541 

MM 

0720 


F03=2.73F-09*AM«FXP(-14.54/XKT(L) )«lfl.*( ( FXP(CFTA/14. )-l.)/CFTA- 

MU 



10.0625 )/{ DMM«4.*C FT A) 
OMHS=F03/{RFFI*1.42) 

MU 

0750 

;^54i 

COMTIMUF 

MM 

0760 


IF(NCRC(2)) 601,2543,601 

MU 

07«0 

601 

IF(HV-0.P5) 2542,2543,2543 

Mil 

0790 

?54? 

FO4=2.73F-0P*An=:'FXP(-CFTA)#8.#| ( FX P ( C FT A / 1 6. ) -1 . ) /C FTA-0 . 062 5 ) / ( 00 



IM=!=4,«CFTA ) 
noHS=E04 / ( bee .77) 

MU 

0820 


CONTI Ml IF 

MU 

08 30 


IF(MCRC(3)) 602,3075,602 

Ml! 

0850 

60? 

IFIHV-2.23) 3075,3074,3074 

MIJ 

0860 

3074 

IF(HV-4.46) 3073,3073,3075 

MU 

0870 

3073 

IF(HV-3.35) 3054,3084,3083 

MU 

0«80 

30^4 

0N2P=( AN2P«1 .E-18 ) «1 0 .=:«#( -1 1 . 576+6 .77«HV-0 . 9 1>:ch\/#>!« ? ) 

MU 

0890 


GO TO 3075 

MM 

0900 

30^3 

0N2P= ( AM2P>:‘1 . E-19 ) >i'10 .** ( -49 . 086+0 . 5 1623E-02’;«T ( L ) -0 . 23577F-06*T ( L ) MU 

0910 


1*«2+HV'M 30.616-0. 30289E-02*T( L )+0, 13644F-06«T( L ) + (HV«*2 )*(-4, 

3MM 

092.0 


266«4+o ,43903F-03»:'T ( L )-0 . 19543E-07#T ( L ) ’!‘*2 ) ) 

MU 

0930 

3 07 6 

CONTI MIIF 

Ml I 

0940 


IF(NCRC(4)) 603,305,603 

Ml) 

0960 
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603 

300 

305 

6601 

6^02 

6600 

604 

2300 

2501 
6500 

6501 

6502 

6503 

2502 

605 

2503 
2.504 

2505 

2506 

2507 

250« 

2510 

606 

2511 

2513 

2514 

2515 
2517 

2516 

2520 

2521 


2525 


IF(HV-1.22) 305t300,300 
XMM = XMM+AMM>I‘1.6F-16 

CONTINUE ' • ‘ 

IF(NCRC(20)) 6600,6600t6601 
IF(HV-1.25) 6600t6602»6602 

XCM = XCM + 1.4E-17X‘AC*AI/(4.83F+15*T(L)>!‘’l'1.5>:‘nCM*FXP(-1.25/XKT 

l)/(4.) ) 

CONTINUE 

IF(NCRC(5)) 604,2502f604 
IF(HV-13.6) 2500»2500»2502 
IF(HV-0,75) 2502t2501»2501 
IF(HV-1,3) 6500t6500t650i 
XHM = (AHM>.n.E-17)>!‘(-4.51 + 7.15«H\/) 

GO TO 2502 

IF.(HV-6.) 6502»6502,6503 

XHM = (AHM*1. E-17)*(6. 765-1. 7*HV+0. 125fi#HV«#2. ) 

GO TO 2502 

XHM = (AHM«1,E-17 )«( 3.5-0. 535#HV+0. 0225*HV«#2, ) 

CONTINUE 

IF(NCRC(6) ) 605,2510.605 
IF(HV-11.) 2503,2503,2510 
IF(HV-1.5) 2510,2504,2504 
IF(HV-3.5) 2505,2506,2506 
X0M=A0M46.2E-1B 
GO TO 2510 

IF(HV-5.7) 2507,2507,2508 

X0M = A0M«1 .F-lB’iM 16.16-0,81B*HV) 

GO TO 2510 . " 

X0M=A0M«1 ,E-1R*( 15.58-0.453*HV) 

CONTINUE 

IF(NCRC(7)) 606,2525,606 
IF(HV-13.5) 2511,2511,2525 
IF(HV-5.0) 2520,2520,2513 
I F (HV-6.65 ) 2514,2 515, 2 515 

0N0=( AND# l.E- 18) #10.0*=!' (-4.2673+HV’i'O. 68267) 

GO TO 2525 

IF(HV-10.) 2517,2517,2516 

nNG=AN0*1.9F-18 

GO TO 2525 

0M0=(AN0*1.F-18 )*( 89.75-19. 125*HV+1.033*HV**2 ) 

GO TO 2525 

IF(HV-2.7) 2525,2521,2521 

0N0=( ANO*l .E-ia)*10.**(-3.4820-0.11509F-02*T (L ) +0. 1 5999F-06#T ( L 
12+HV#( -2. 3744+0. 109 52E-02*T ( L ) -0. 10099E-06#T I L ) **2 )+( HV**2 ) *( 0. 
249-0.17249E-03*T(L )+0.13874F-07*T(L)**2) ) 

CONTINUE 


MU 

0970 

Mil 

0980 

MU 

0990 

MU 

1010 

MU 

1020 

(L)Mli 

1030 

MU 

1040 

MU 

1050 

MU 

1070 

• MU 

1080 

MU 

lOQO 

MU 

1 100 

MU 

1110 

MU 

1120 

MU 

1130 

MU 

1140 

MU 

1150 

MU 

1160 

MU 

1170 

MU 

1190 

MU 

1200 

MU 

1210 

MU 

1220 

MU 

1230 

MU 

1240 

MU 

1250 

MU 

1 260 

MU 

1270 

MU 

12 80 

MU 

1290 

MU 

1310 

MU 

1320 

MU 

1330 

MU 

1340 

MU 

1350 

MU 

1360 

MU 

1370 

. MU 

1380 

MU 

139 0 

MU 

1400 

MU 

1410 

MU 

1430 


1440 

575MU 

1450 

MU 

1460 

Mlj 

1470 
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IF(NCRC(8) )607, 15t607 ■ • 

^>07 nN = SOA#AN>KXKT ( L ) >!‘4,5>!'EXP( XX-XM ) 

IF(HV-4.22) 15t200,200 
200 ON=DM’i'EXP(4.22/XKT(L)-XX) 

IF(HV-10.8 ) 15t201,201 

. ?01 ONJ=OM+ANi#5.16F-17*FXP( 10.8/XKT(L )-XN)/DNM 
IF(HV-12.0) 15,202,202 

202 nN=DN+AN«6.4E-17#FXP( 12.0/XKT(L)-XN)/nMM 
IF(HV-14.3) 15,203,203 

203 0N = 0N'+AN43.16E-17/nNM 

15 OZ=0. 

IF(NCRC(9)) 609,609,608 

608 0 Z = S 0 A#An#XKT{L )4(8,0/9.0)*EXP( XX-X 0 ) 4 Zn/H \/««3 
IF(HV-4.22) 16,204,204 

204 nZ = 0Z*FXP(4,22/XKT( D-XX) 

nZ=0Z« (0,141 5+0. 4295# ( T( L ) /4000. ) ) 

X3 = HV/-4.22 

0Z = 0Z+6.5F-18#A0#( 8,/0nM)#EXP(“9.2B/XKTI L ) )#( 1 
1X3##2) 

IF(HV-13.4) 16,205,205 

205 0Z=nZ+A0#3.6E-17/DQM 

609 CONTINUE 

16 IF(T(L)-R000. ) 5000,4975,4975 
^975 IF(HV-3.9) 4977,4977,5000 

4977 IF(HV-.Ol) 5000 »4978,4978 

4978 DZ=OZ#(0,1415+0.4295#(T(L)/4000.) ) 
nM=DN*( 0.867+0. 168# { T( L ) /6000. ) ) 

5000 CONTINUE 

IF(NCRC( 10) ) 611, 17,611 


MU 
MU 
MU 
MU 
MU 
MU 
MU 
' MU 
MU 
MU 
MU 
MU 
MU 

MU 

MU 

MU 

MU 

0.09375#X3+.005R6#MU 

MU 
MU 
MU 
MU 
■ MU 
MU 
MU 
MU 
MU 
MU 
MU 


611 ni=4.0#SOA#AI#l .33#XKT( L )#EXP(XX-XI ) /HV##3 
IF(HV-10.8) 17,206.206 

206 ni=0I#EXP( 11.2/XKT(L)-XX) 

17 002=0,0 

IF(NCRC(1D) 613,18,613 

613 IF(HV-3.) 18,1305,1305 
1305 IF(HV-7.) 1301,207,207 

207 IF(HV-9.2) 208,208,18 

208 002=A02#400.0#SQRT(TANH(0.0975/XKT(L) ) ) #FXP ( -T AMH ( 0. 195/ ( 2 .0# 
1XKT(L ) ) )#( (HV-8.56) /0.805)##2)/2.687F+19 

GO TO 18 

1301 n02=( A02#1.E-18 ) # 1 0 .## ( -23 . 41 3+0, 40509F-02#T ( L )-0. 2^545 F-06#T ( 
12+HV#( 6.2102-0,10559E-02#T( L )+0,66192F-07#T( L )##2 ) + ( H\/##2 ) # ( -0 
253+0.71490F-04#T( L)-0.47115F-08#T(U##2 ) ) 

1.8 0N2=0,0 

IF(NCRC(12)) 614,2010,614 

614 IF(HV-6.5) 2550,209,209 


MU 

Mil 

MU 

MU 

MU 

MU 

MU 

MU 

MU 

MU 

MU 

L )##MII 

.416MU 
MU 
. MU 
MU 
MU 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1600 
1610 
1620 
1 630 
1640 
1650 
1660 
1670 
1 680 
1690 
1700 
1710 
1730 
1740 
1750 
1760 
17.70 
1 780 
1790 
1800 
1810 
1820 
1840 
18 50 
1860 
1870 
1880 
1890 
1900 
1910 
1 930 
1940 
1950 
1970 
1980 
1990 
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MU 
MU 
F-OMII 
) MU 
MU 
MU 
F-OMU 
❖ 2 )Mli 
Ml) 
MU 
MU 
MU 
MU 
MU 
MU 


17 


?OQ IF{HV-12. 77)210, 210, 2010 

210 IF(HV-10. 5)211, 211, 212 

211 0N2=( AN2/2.52F + 19)>^FXP(2.3026«(-l4.R71-0.395a5F-03*T(L)+0.P6911 
17=«'T(L )**2+HV*(-0. 99225E-01+0. 611 A8E-03«T(L) -0.412606-07*1 (L )*«2 
2+ (HV**2)*{ 0.12305-0, 48332E-04*T ( L )+0.2R353E-0P*T ( L )**2) ) ) 

on TO 2010 

21? 0N2=( AN2/ 2.52 E+19)*FXP( 2. 3026* (-39. 306+0. 7 1761 F-02*T(U -0.46 157 
16*T(L )**2+HV*( 4, 1032-0.769 196-03*T( L)+0.52442F-07*T(L)**2 ) + (H\/* 
?*(-0.56701F-01+0.1622RE-04*T(L)-0.12761F-OR*T(L)**2) ) ) 
c;n TO 2010 

2550 IF(HV-4.5) 2551,2551,2010 

2551 IF(HV-0.75) 2010,2552,2552 

2552 nM2=R,E-20*AN2*10.**(-l.+2.78*HV-0,R19*HV**2-2,696/XKT(L ) )+2.F- 
1«AM2*10.**(-17. 14+«.93*HV-1. 132*HV**2-3.26/XKT(L ) ) 

2010 ocn=o.o 

1F(MCRC(13). EO.O. OR.HV.lt. 4. 27. OR. HV.GT. 10.60) GOTO HR 
ARG =-245.36 + *444.9 *XI.AM - 31603. *XLAM*«2 
. +97915. 7*XLAM««3 - 112317. *XLAM**4 

ARG = ARG*(2.1272 - 3 .7609E-4*T ( L ) + 3 . 642F-R*T ( L) **2 
. -1.24E-12*T(L)**3) 

OCO = EXP( 2.30259*ARG)/( 1.492E5*6XP(-HV*11606./T(L ) )*1.0/ 

. (XLAM**5) ) 

nco=nco*ACO 

IIP 0H2=0.0 ’ Mil 

IF(NCRC( 14) )616,119,616 Ml) 

616 IF(HV-3.65) 119,222,222 M|| 

222 lF(H\/-25.0) 223,223,119 MU 

223 IF(HV-15.50) 1023,124,124 m(| 

1023 IF(HV-10.) 2530,2531,2531 Ml) 

2531 n.H2 = { AH2*1.F-18 )*10.**(-120.73+0. 17515F-01*T( L)-0.R7076F-06*T ( L)**MII 

12+HV*{ 17.526-0.24654E-02*T(L)+0.12097F-06*T( L)**2)+(HV**2)*(-0.625MU 
227+0. 66154F-04*T(L)-0. 4ia02E-08*T(L)**2) ) MU 

IF(T(L)-3000. ) 119,9125,9125 MU 

9l ?5 nH2=( AH2*1.F-19 )«10.** ( 1 1 . 513+0 . 1 5R39F-03*T ( L ) -0, 1 1 7P.QF-06*T ( L )**?M|) 
1+HV*(-1.2534-0.13165E-03*T(L)+0.31267F-07*T( L )**2)+(HV**2)*(0.3294M|I 
11F-01+0.89272F-05*T(L)-0,17775F-08*T(L)**2) ) +DH2 Mil 

GO TO 119 MU 

2530 IF(HV-6.2) 2532,2533,2533 MU 

2533 nH2=AH2*2.5E-lR MU 

GO TO 119 ■' Ml) 

2532 IF(HV-5,3) 2534,2534,2 535 Ml) 

7535 0H2=( AH2*1.F-1o )*10.0**(-207.7R+0.55206F-01*T(L )-0.4409RF-05*T(L )*MU 

1«2+HV*(66.917-0.1794RF-01*T( L)+0.14473F-05*T(L)**2 ) + (H\/5'.‘5:c2 )*(-5.37MII 
267 + 0. 1*587F-02*T( L)-0. 1 1872F-06>!‘T( L)**2 ) ) MU 

GO TO 119 MU 

2 5 34 OH2 = ( AH2*1. E-IR )*10.0**(-5.23 20-0.27R12F-02*T( L ) +0, 207 1 5F-06«T ( I. )«MII 


2000 

2.010 

20*0 

2050 

2060 

2070 

20R0 

2090 

2100 

2110 

2130 

21*0 

2150 

2160 

2190 


2320 
23'30 
2340 
2 3 50 
?960 
2370 
23 90 
?3qn 
2*00 
2*10 
2*20 
?*P0 
2**0 
2*50 
2*60 
2*70 
2*P0 
2*90 
2 500 
2510 
2520 
2530 
25*0 
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( -5. lAR7 + 0.249AflF-02*T(L)-0.1603] F-Oft«T(L ) 5!‘*2 ) + ( HV««2 ) >!' ( 0. 9(^MI J 


236^-0, 34072E“n3«T( L)+0.21180F-07*T(L)**2 )) . MU 

Gn TO 119 Ml] 

1?4 nH2 = AH2#10.0#«(-17.1-9+0.062*(HV^'lft.'0) ) MU 

119 nc2=o.n , MU 

IFINCRC(lf)) ) 617,120,617 MU 


617 CnMTIMUF 

C,... C2 molecular bands from K. SUTTON, 5/7fl 
IFlHV.LT.O.l .OR. HV.GT.6.6) TO 470 

V = HV 


V2 = 

v/«v 

V3 = 

V2>!'V 

V4 i: 

V3=«‘V 


U = T(L) 

IFdl.LT. 2000.0) U = 2000.0 
IFdJ.GT. 14000.0) U = 14000.0 
U2 = U*U 
U3 = U2«U 

IF(V.GT.1.9) GO TO 410 
C C2 RALLIK-RAMSAY 

W = (-2.47556255F+1 +1.56675833E-3^‘U -1.49681021E-7«U2 
A +4.76786134E-12#II3 ) + ( 2 . 0467 5773 F + 1 -5 .0532626 1 F-3*U 

B +4. 57527045E“7>:mJ2 -1 .42849344F-1 1>.'‘U3 )*V + ( “2 . 07 59 1403 E + 1 

C +5.28626421F-3^U -4 .65253699E-7*U2 + 1 .42703647F-1 l’!'U3 ) #V2 

n +(6.93314515E+0 -1.96130560F-3«U +1.62901R46E-7«U2 

F -4.R278069PE-12*II3)’!'V3 +( -6 .67009441 F-1 +1 .91 144134F-4>M) 

F -1 .33821102F-8«U2 +3 . 521 1 9926F-1 3>:'U3 ) ’!' V4 

0C2 = 0C2 + AC2=l'( IC.G^^'^W) 

410 CONTINUF 

IFIV.GT.2.6) GO TO 420 
C C2 PHILLIPS 

W = (-2 .55010890E+1 +1 .70584568F-3*U -1 .65244165F-7=:=U2 
A +5. 32056661E-12=:'U3) +( 1 . 26249681 F+1 ~ 3 . 0 1 906596F-3«U 

R +2.75757647E-7«U2 -8 . 69708 1 1 1 F- 1 2«U3 ) «V + ( -5 . 382 13934E+0 

C +1 .0783891 1F-3*U -8 . 747 1 5768 F-8>:ni2 +2. 60010262F“12«U3 ) *V2 

0 +(-5.10183000F-l +3.11595820E-4*U -3 . 6801 8487 E-8=i‘U2 

F +1.26878908E-12«U3)*V3 + { 3. 69027147F-1 -1 .49010770F-4*(I 

F +1 .51951958E-8^=U2 -4 . 978 88 5 1 1 F- 1 3*U3 ) ’^ V4 

0C2 = 0C2 + AC2*( 10.0»:'=:=H) 

420 COMTIMUF 

IFIV.LT.l.l )G0 TO 470 
IF{ V.GT.3.5 )G0 TO 430 
: C2 SWAM 

W = (+1 .13973049F+1 -1 .07516873F-2«U +8 .9 161 9 1 1 1 F-7*( (2 
A -2.48633789E-1 l’^U3 ) + ( -8 . 63964298F + 1 +2 . 63430298F-2«U 

B -2.27779293F-6«U2 +6 . 579769R6F-1 1«U3 ) *V +( 6.67733145F+1 


2550 

2560 

2570 

2580 

2600 

2610 
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C -1 .96563fc5?lr-2>!‘l) +1 .72 19ftl92F-6«t)2 -5 .005339R4F-1 1*1 13 ) «V2 

n +(-1.950R4525E+l +5.8947140AE-3*U -5.2107R797F-7*I.I2 

F +1.51363699F-11*1J3)*V3 + ( 1 .90B59634E+0 -ft . 2 1306708 F-A*IJ 

F +ft.b511ft345E-«*U2 -1 . 60805289E-1 2*113 ) *V4 

nc? = nc2 + AC2*( io.o**w) 

*30 CnMTIMIJF 

IF(V.LT.2.2) GO TO *70 
IF(V.GT.*.2) on TO *40 
C C2 nFSLANORFS-D"AZAMBIlJA , 

'.'I = (+4.37104134E+2 -1 . 07 17 27*9 F- 1 *U +9. 1 3*53 174F-ft«lJ2 
A -2.69365071E-10*II3) +( -ft.*0ftR*l47F + 2 + 1 . 5 1 2*5 19ft F- 1 *U 

R -1.31009355E-5*U2 +3 . 901 5401 8 E-1 0*U3 ) *V + ( 3 . 1 Rft964ft3F+2 

C -7.60914126E-2*U +ft.ft6707577F-ft*U2 -1 ,99723467F-10*U3 )*V2 

n +(-6.77434932E + 1 +1. 64989333F-2*U -1 . 4ft09737ftF-ft*IJ2 

F +4,39700394F-11*II3)*V3 +{ 5 .22243047F+0 - 1 . 30RftCft75E-3*(.) 

F +1.17137751E-7*U2 -3. 54019661 E“12*U3 ) *V4 

nC2 = 0C2 + AC2*( 10.0**U) 

440 CONTINUE 

IF(V.LT.3.2) GO TO 470 
IF(V.GT.6.0) GO TO 450 
C C2 FOX-HFRZRERG 

W = (-1.61270124F+1 -3 . 2420 565ftF-3*U +1 . 65029202F-7*U2 
A -2.52276490E-12*U3) +( -2 . 1 8665 1 36F+1 +7 . 64317879 E-3*U 

B -5.98228437E-7*U2 +1 . 67809358E-1 1*U3 ) *V +( 1 . 027 1047 8E+1 

C -3.18657710E“3*U +2 .56604310E-7*U2 -7.39573553F-12*H3 )*V2 

O +(-1.640P4342E+0 +4. 83701438F-4*U -3. 849 19650E-8*I 12 

F +1.103306ft0F-12*U3)*V3 +( R .761 86297 E-2 -2 . 504RR2.q4F-5*n 

F +1.927ai533E-9*l)2 -5.406206868-14*03 ) *V4 

nC2 = 0C2 + AC2*( 10.0**W) 

450 CONTINUE 

IF(V.LT.4.9) go to 470 
IF(V.GT.5.R) GO TO 460 
C C2 MULL I KEN 

W = (+1.30164627E+5 -4.97157720E-1*U +8.82595591E-5«U2 
A -3.857749P9F-9'-:hJ 3) + ( -9 .7 1 23 58 74E+4 +3 . 41 272 2 5 lF-1 *U 

B -6.33A4421RE-5*U2 +2.80550065E-9*U3 )*V + ( 2 . 71 1 69027 F+4 

C -R.43582112F-2*U +1 .6753P*6*F-5*U2 -7 . 5 597457 5F-1 0*03 ) *V2 

n +(-3.35819639F+3 +8.7PP63905E-3*U -1.932R2716F-6*U2 

F +8.94390272E-11*U3)*V3 +( 1 .55651 193F+2 -3 . 17294*R0F-**U 

F +8. 1P68080RE-3*U2 -3.917741995-12*03 )*V* 

nC2 = nC2 + AC2* ( 10 . 0 **W ) 

460 CONTINUE 

IFIV.LT.5.0) GO TO 470 
C2 FRFYMARK 

w = (+9.87635453E+3 -2.711033*88+0*0 +2 . 5*37976RF-**02 
A -8 .001*8084F-9*U3 ) + ( -6. 9 1 6*2388 E+3 +1.90*899*98+0*0 


C 



^ _ 1 ^ 7 q 377 A;)lP_ 4 ;;,-|l? + a , ^ ?Q 7 7 I 7 ) =:*'/ + { 1 , 7>->07 P + ^ 

-A.q 92 '^ 849 nP-l»IMI + 4 . 719079 R?F-S--;=il? -i .AHKQ 179 ".F- 9 -!n 
'■> +(- 2 . 0650^6039 + 2 + 5 . 70 ' 582162 F- 2 -! l -5 . 40^945 2 20 - 4 =:o i ? 

F +1 . 73612707 F- 10 »;'IR ) =;s \/3 + ( ft . 836 1 5 i^ 57 F +0 -p , AnA<JAQ 30 F- 3 *ii 

F + 2 . 3 Fft 970 ftlF- 7 *l !2 - 7 . 561 ft 3 A 1 OF-l 2 *(.I 3 ) * \/4 

1)02 = 002 + AC 2 =M in.o=:“;=w ) 

4 yri r.O'-'.TI ^'llF 


130 oo''=o.n 

IF(MORC( lA)) 61 p,i;11,A1h 

61 A iF(H\/- 0 .fO 121 . 226 . 22 A 

3 3 A TF(M\/_A,) 1227 , 1227, 121 


123 7 00'''= ( AOM=:=l , F-19 ) =1-1 0. =:==:= (-1.3962 + 0 . 1 qQp?F-0 3j:cT ( L ) -0. 10 67HF-07* 

1 2+H\/* ( A . AO 7 1-0. 1 0144F-02-T( I. ) +0. AfiVftl F-07-T ( I. )-*2 ) + ( H V=:s;;-'2 ) ( 

2 7 + 0.43A12F-0 3-T( L ) -0. 2643 3F-07^=T ( I )-'*2 ) ) 


1 22i> 

1 n 

A 19 

127 

12- 


IF(H\/-2.) 121 , 1223, 122« 

nC!'!=nCM+ACM* lO .'-i^-M -41.46+13. 76='.= H\/-1 . P4 6*HV/*5;t2 ) 

00 = 0 . 

IF(i\'OftO( 17 ) ) 619 , 122,619 
IF C-'V- 3 . 7 ft) 127 , 128,123 

O0 = ftOA=:tA0=:=l ,33=:=XKT ( L)-FXP( ( '-)\/-ll .26) / XKT( L ) ) =:=7 0 /m\/>;=5;=3 
r;n to 122 

nc = SOA>:=AC-'l . 33 *XKT ( U =:--fX P ( - 7 . 5 « / XK T ( I.) ) =;< 7 0 /M V =:=*3 


'■■’I I 
|V»| I 
I 

Mil 

T(L 

-7 . OOP Ml I 
M I ! 
MM 

r/|! 
!.i| I 
Mil 

I 

Ml! 

Ml! 


IF(H\/-R.51 ) 122,22^ ,??P 
nC = OC+AC'^2.7F-17'l<FXP(-7.7S/XKT( L ) ) /HCm 
TF(M\/-10.0) 122,27^,27"^ 

vvc nc = nc + AC=‘-?5.‘SF-17':'FXP(-l . 2^/XKT ( L) ) /^Cm 
I U2^ ) 12 2,2^0,2^0 

7 *^0 •)C = (K, + AC*9 •^F-17/nCM 

122 ncp=o. 

IF( MCRC( 1 B ) ) 620,121 ,620 
^20 !F (H\y-15.0R) 129,1B0,1B0 

ocp = c . 3^f4.5PF-2 0=:'ACP'J=T ( L ) '-'FXP ( ( HW-24. A. ) /VKT ( L ) ) - 7 J 
on TO IBl 

rso nc=> = ^ .R^^5BF-2 0=:^ACP':'T ( L )-FXP( -9,^2/XKT ( L ) )-7 I/H\/*=:'2 
IF(H\/-19.03 ) 131,231,231 
2''^! nCP = nC‘^ + 6.R4F-17''-FXP(-5.37'‘-VKT(L ) )-'ACP/nCPM 
TF(H\/-24.4) 131,232,232 
V3? nC‘^ = nCP+] .3?F-17*ACP/nCPM 
I 3 1 COMTIi^'llP 

X ApMi) ( L ) = FPC* ( OM+nz+ni+XNM+xcM+nc+XMnL=:= ( ncn+nMp + nc 2+nCf'» 
i+nn2+nM2+nMn+DM2P ) +XHM+xnM+nMHS+noHS ) 

I F ( M \/- 0 . P 0 ) 2 3 3 ♦ 2 3 3 , 1 4 r) S 


Ml 

Ml 

Ml 

Ml 

. / I 

:-4 I 

Ml 

Mf 

M( 

M I 
ly I 
Ml 
Ml 
Ml 
M! 
Ml 


233 OH = 6,26P-20^:«AH^«T(L)-FXP{ (HV-13,6)/XKT{L) )/F»V--3 Ml 

GO Ji\ 1/-3 0 Ml 


1 •'+ 1)6 n M = 

1-FXP ( -12 .B/XKT ( L ) ) /HV^.'-:'3 


4, 26P-205:c ( I. ) '1' 

Ml 


2 

2Pfu) 
2P 1 n 
2-20 
3 0 
2 w ^ O 
2P4rt 
2«60 
2P7(> 

2 P o n, 
2oon 
2<^ 1 n 

2 P 2 n 
2P3n 
20^1.0 
20 60 
2P40 

7^70 
20 «o 

2PQ0 

3(M'>n 

30 20 
^ 0 3^ i 
30Ar» 
3(^60 
30A0 

3 07t> 

3 0 - O 
3/KJf) 

3 1 on 

31 2 rv 
3 1 3 0 
3 1 AO 

3 1 H O 
3 1 PO 
3 2 00 
^2 10 




iF(Hv-i.isn) i^5n,?3^»??4 

Mil. '-^2 211 


|)U = OH+l , 47P-1 ‘5* AH^'FXP ( -1?,0/XKT( L) ) / ( OH M A ) 

Mil 32^0 


. IF (HV-'^.40 ) 1450 ♦ P35 

'•111 2 2 40 


DM = nH+4..Q75F-l 5*AH«FXP( -10, ;?/XKT( L ) ) / ( OMN' A»;‘H\/5:o:c? ) 

'•111 22 90 


IF(HV-n,3F ) 14 50t?.36,?3'S 

Mil 2 7 40 


i)H = nH + 3,QPF-l4s;'AH/( DHMA>;«MV«*3) 

Mil ■a?7 0 

1 0 

r/iMTr'iilF 

VI II 2 ,u O 


XAPHMl. )=XAPMI!( L)+FPC*nH 

Mil 3 200 


H = I-' \/ 

IF(H.|.T..?.21,n3.H,GT,4.l3) Gn TO 1000 



/•.i\iG = XI..AM*l ,0F+4 
4 MG?=AmG*AMG 
^ ~ A i'lC** fi' A iM G ? 

I F (H.GT.3. 1 ) nC3=l ,31141F-l-S-J .04R3 5F-) q=:= AM G+? . «74? 1 
1 /i.MG2-? ,4qA4.QF-27«AMG3 . ■ . 

I F (H, LF.,3. 1 ) nC3=l. 9H460 5F-16-1 .0700WF-] q*AMr.;+l ,q077PF-?3* 

1 AMGP-1 .11Q7AF-?7>:=AmG3 



X A P I 'l l ( L ) = X APMI 1 ( L ) +I^CR*XMM( I , ?1 ) 


] O-U) 

r.fUvTTMlIF 

!•■• II 2 2 1 O 


q.Fi'ir^M 

1 1 -3 2 ' ■> 


FMH 

Mil 73-2r, 


SMFi>ni)TI ■''JF Si_npn( m,x,y.s,Z ) 

.Si.nponi 0 


OIMFMsinM X( n ,Y( 1 ) ,S( 1) ,Z( 1 ) 

SI npoo'xo 


T F ( 1'- 1 ) Q , G , 1 

S 1. n P 0 o 4 0 

1 

-S 1 ? ) = ( Y ( 7 ) -Y ( 1) ) / ( X ( 2 ) -X ( 1 ) ) 

SLOPooKo 


N(1)=S{?) 

FinpooAO 


1 r.= s { 2 ) 

S 1. n p o o 7 n 


^ I = T,M 

sir. .JoiO'i' 


Ii"(I + l—f'')3,2t^ 

SI. rpnooio 

7 

■ K = n (] 

S 1 nofi 1 OD 


TF( !-2) 9,7,6 

SI. OP 01 10 


Xf1T = X ( I )-X ( I+l ) 

S 1. n D 0 1 2 0 


^TT=V( I+l )-X( I+?) 

S 1 . n P 0 1 1 o 


XTM=X(T+2)-X(T ) 

SI.OPOl 40 


/•.A=Y( I) / ( xni-'XTn ) 

Sl.fM-'O 1 FO 


■'6=Y( I + l )/(X0T=;=XTT) 

SI ripoi -SO 


AC = Y( I+2)/(XTT';‘XTri) 

SLOP 01 70 


/iAA = AA*XTT 

.SI. op 01 Pfi 


iP“ = AK5;sXTn 

SI.OPOl oo 


ACC = AC=;'xnT 

Sl.opft200 


:-'A = OC 

S 1 . n p o 2 1 0 


:m'.=S(I) 

SI 0002 7 0 


or: = S(I + l) 

S 1. n G o 7 2 o 


s ( I ) = AA»;! (XTO-XHT )+AftH-ACr, 

S 1. 1 1 o 0 2 /Ti '■) 


S( I + 1) =AK*( Xni-XTT ) + ACC-AAA 

srnP0 7 Ffi 


3 ( I +2 )=AC« ( XTT-Xin)+AAA-AHH 

SI. .'IDO 7 AO 
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I F( !-?)«, 

5 S{ I ) = .5#( SI 1 )+0<^. ) 

F SI I ) = S ( I ) + >4) 

7 Xl)=X| I )-XI 1-1 ) 

YS=Y| I )+YI I-l ) 

sn=si I )-S I I-l ) 

7. 1 1 ) = 7. 1 I-l l + .F’iJXn*! YS-xn/-s.*sn) 

C.OMTIf''nF 

O 

FMO 

SIIBROIITIMF TFA'MSM TMIUMY) 

CriiVMnM/ AFRAn/ npLTA, TA'RFAn»Kl ,K? ♦MAPS ,MPLP »a"-I\/,a.'I .A'ICt WIH\/C * 

. MSHV , N'X I , iviYC 1 » TW ♦ C 2 1 M I OPN'T ♦ A'TR A MS ♦ S F I 5 ) 

CriMMnM/C-'FOR/ AHV | pf) ) » AHVL I ? S ) , PPS I FiS ) » F F I 400 ) , F^VC I FO ) ♦ pMV | ? P ) , 
^PHUmI ?5 ) , FMVP ( ?P ) ,G AMP I 300 ) » GPPl pA) , Gl IP | 300 ) , H\/L I 300 ) » I M 9 ) « 
.•MCKC I 30 ) »Mni 300 ) » MKK I 3P ) ,MII| 3F ) t Tf-’SW | PO ) , T^'^S Wl. I 2 P ) »XMni. I 300 ) » 
.ALPHA! 33 ) , RPTAI 7 ) tFIMLI 25t3) «FIPLI 2F.3) , FTMCI P0.3 ) ,FTPC I P0.3 ) . 
.FHVSI 200 ) ,MSHC I 2P ) 

CriMVinM/CFIFOR/XWM I PI t ?3 ) t X0| PI , 7 ) » MI CH I PI ) , YYI PI ) f IFF I PI ) , 

.PRFSI PI) ,OR| 51 ) ,FIMI I PI ) ,FIPI I 51 ) ,TLCM| P 1 ) .TLC P I P 1 ) , H F f | FI ) , 

.FMHI 51 ) » TAIITI PI ) » ni M| 51 ) ,01 PI PI ) » FIM| PI ) »FT PI FI ) , FPr'l Pi ) , 

.FRPI 51 ) ,FU'I| 51 ) ,FI ivi| 51 ) . F 1 1 I 5 1 ) , F I MJ I P 1 ) , F T PT I P 1 ) ,L»'IH 51 ) , 

.SKI51 ) ,nSK| PI ) ,XF| PI ),FXPTI 51 ) tXTXI PI ,3) ,VX| FI ) 

OIMFMSinM TM|!| 1 ) ,0f-'| 1 ) »np| 1 ) 
foiiivalfmcf lot' , SK) , |np,nSK) 

•hY^^ = |'<Y + 1 

FI*M1)=0.0 

FTP (^«Y) =0,0 

TA11T{1)=0.0 

iMl 100 T=?,MY 

0YAL=C?-M YY( I )-YY( I-l ) ) 

\/ = TMl)( I )/T^UJ( I-l ) 

\M.=V-1 

IF( ABS( VI ) •C7T.0.01 ) Gn TO 50 
V/lF = V/l/?4.0 

TAIIT( I ) = ( l*0+vi5:<( 0, 5 +v1F’:M v 1-?,0) ) ) 'i-nyAL^i^TMiK I-l ) 

OM( I )=oyaL'M ) ) 

op ( I-l ) =DY AL'M 0. 5 + VlF':^ ( 4, 0-Vl ) ) 

GO rn 100 

so \/*H=1.0/ALnG(V) 

T AMT { I ) =V1"V5-0Y AL>:=TJ‘^'M{ I~l) 

I )=nYAL=:M v^-vi'i^v^o/v) 

OP ( I-l )=0Y AL=M Vl=n/^0-V/3 ) 

100 cntVTIMMF . , 


SLnPOPyn 
Sl.nPfv;>;^ n 

SLOPOVOf^ 

SLPPO‘^(U^ 
.Sl.nof)^ 1 r) 

Si.npo 

5 i^npo:^/,.o 

SLOPO^FO 

AMOOl 0 
TP Ar.'Ol 40 


AMOp 1 n 

TP aMoppo 
TP A 

TO A^»0?4^) 

TP Af'»n:^^o 

T*^ A^I 0 ?U 0 
TP AMO'^00 
TP AMO*:^! O 

TP A.VO^v^O 
TP AMO':^FO 
TP A^lO‘^A^ 
TP A fN'0-:^70 
jl:> a Ah'i'APO 
TP A.-.»r^^QO 
TP AA«04 1 n 
TP A^u)4:>n 
JO AM04^0 
TP AMn4/..n 
Ti^ AMr^4S0 
TP 
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I=i\iY 

1)0 ?0n J = ?,MY 

( I )=FXP(-T/‘>MT( I ) ) 

'-L^'( I ) = ALnG(BPC( I )/KPF( I-l ) ) 

0PM = TAIIT ( T )-Fl.i'i( I ) 

VII-.’ = .HFP( I-l )-hpp( I )s;:p><pj( I ) 

FIP( I-l )=Fi:>( I )*FXPT( I )+TAllT( I ) ««\/l U// HFM 

von 1=1-1 

on ^00 ! = ?,iMY 
0FM=-I.M| I )+TAllT( I ) 

\/IIi/ = hFF( I )-► <FF( I-l )#FXPT( I ) 

-I vi{ I )=FIfM I-l )-;'FXPT( I )+TAilT( I )«W(lf’/nFM 
•^00 COMTI'llIF 


JO Ar-OAno 

JP AMORrin 
JP A put'll n 
TP AMOF?n 
TP AMOf^nf' 
TP A MOP AO 
TP AMOS SO 
T'-? Al ’OKFO 
TP AMOPPf) 
TP AMOAOO 
TP A MO A 1 O 
JQ AM0A?0 
TP AMF'A'afi 


AilO 


TAOT( 1 )=0.0 
DO 400 I=?,MY 
OP ( I )=TAIIT( I ) 

TAUT! I )=TAIIT( T-1 )+0P( n 
CONTI Ml IF 
FTIIPM 

AMO 

SlIrt'TOi.lTIMF 7.HV|H\/,7.^,7.^xl,ZI ,70 

X=M\/ 

l«= (HV-Q.p?) 1,1,? 

7O = 0.P9997956-0.31554P0A5.‘sX +?. R?A5479F-n?*X5:'5.'s? +A, A77^?«'^F-n?*X>;j 

1 -^.'SAASCjsaF-O^^^X^sXA +B.0580A,9KF-0A5;!X=Xs:«'5, -7.70PAB7AF-0‘S#X>i««a +?, 

paaai3bf-oa’;<X';»:'7 


TP AMOAf^o 
TP AMOAAO 
TP A MO A 70 
TPAMOAPO 
1-t^/\MOA<iO 
TP AMfiYOO 
JO Mr. / 1 .M 

7 MV 0010 
7M\/ 00 ?0 

7.WV OC'BO 
■^7>'V 00 AO 
7WV oo«n 
7:!'.» 00 AO 


(;n TO B . ■ 7'-iv 

? Z0= ( X/9.R? 7 MV 

B IF (HV-P.B5) 4,A»5 ?>•'/ 

4 Zi\i = l .n001AC-0,410B53AA,«X +0. 16Rn?5Pl*X»«? _q, 77Q4579F-0 ?«X»!«jX3 Zmv 

l+3.35A4351F-0?*X»’:'4 -'S,A09353AF-03»X=^’.‘«5 +A . 5 1 55 ^ 5F-04>l«X*5?f, -1,A03B7WV 


?P4‘SF-035!sX::=Y7 
GO TO f> 

9 Zi\i=(X/o.,35)«>:'3 
A X = H\//4.0 

IF (X- 6 .A) 7,7,.=l 


7"V 
7M\/ 
7HV 
7HV 
7 M V/ 


7 7.1 = 1 .000379A-o,?9f>476AR*X +7 . 50F?41AF-0?«X':'*2 -1 .70?Q4fUF-0?*X*’:«3 ZMV 
1 +n. ?795539F-n3-X=;==:=A-2. 12P4A9?F-0 a*X**5 7MV 

GO TO 9 , 7WV 

? 7.I = (X/7,37 )=:":sn 7 mv 

9 X=HV 7.MV 

IF (X-7.37) ?R,?‘5,26 7 -tv 

?R ZC = 0. 99743674-0. 4341«12?*X +R . 63 13 1 4 1 F-n?x«X^":'2 -1 , 99 30 1 ARF-0?=:<X**37 HV 
1 +a. 03 9 6449F-03X=X*=:'4-6, 42642AAF-04>:tX=:«-5+?. P 1 21 261 G-0 6'AX5:<«6-3 . ««36 P 7 .m\/ 
2^PF-07=:=X=;”:'7 7HV 

GO TO 20 7MV' 


00 70 
OOf'O 

00 MO 
moo 

01 10 
01 70 
01 9(' 
01 AO 
0160 
0160 
o] 70 
0 1 no 

O 1 9 O 
07 00 
07 1 O 
0770 
07 90 
0?AO 
0 7 60 
0 7 60 
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7c=(x/7.:h7 

?0 -PTIJRIv' 

H i\i f) 

FIlMCTinM FXP3(X) 
lF{x.GT.n.7) on in in 
XX = 0,«i«x*x 

FXi^-^ = 0.5 - X + XX«(0.9??7O4 - Al.nGIX)) + 0, 1 (^^ftftAA7«vy>!‘y 
?PTII=<M 

1.'! Fxp:\ = 0.4»;!PXD( _1 ,293-'X ) 

'•FTURM 

FIlMCTIflM GAMFX ( M4, SDMM5 ) 

YWIN = 0, a;?5F-1^s;!M4*x/( TT*TT) 

Y? = Yf->IM5SYiViIM 
Y = V p 5;c Y f/i j ^| 

P 1 = YKI l\i-0 . Y? + n . nF55A*Y3-ALnG( YM T M ) - 0 , 577P 1 A 

S 'ii-'FY = 1 . A 1 F-? 1 5 :jX«SMMKi<5«p ] /^DR T ( TT ) 

RFTI.IRN 

P!'in 

Fl.Itv'CTinM HWIMG (L ) 

\/ALFMCF {WnH, ALPHA) 

P F A L C { 4 ) . i.)nT ( 4 ) . POM ( 4 ) 

nATA (C{I),I=1.4)/3.4F-A.1.7RF-5,].3F-3,3.57F-3/ 

■)ATA ( pnM( I ) . I = l ,4 ) /4.4PAF-9 .3. 1 AIF-Q , 1 . ? HQ F-7 . 7 . f) 72 F- K/ 
•'iATA ( '-’nT( I ) , I = 1 , 4) /. n()2SA7, .OnOR] 23, .fi3324^ .01 02A/ 
f)i_AHH,nft = fo=:=alpha 
i)L" = WPT(L)=;=TT 
T ^ R f'i = 2 , 0 

I F ( OL A.-.HO i . GT. ni.'-i ) GO in 20 
i)LP = Pfliv ( I. ) -SG= T ( X ) 

S-'M.Am = SORT ( ni. AMROA ) 

TPRv, = l,0 + P.MT=i=S0LAM 

I F ( 0| APROA . GT. n(.P ) TFPM = ( nLH-ni. Al'/RnA ) / ( ni M-ni p )*T>=PM 
I F ( T F R i-‘! . G T . 2 , ( I ) T F R M = 2 . 0 

'0 <--i.(ii-,iG = C ( L) /ALPH A^:o;c 2. s sit tpRm 

■•'PTHR'R 


7 MV 0270 
7'P'/ 0230 
7HV/ 02H0 


Fon 

FIIMCTTom HYCnRFt XA ,YA,X,Y,nY,M) 
oi-f.-lstoim x( 1 ) ,y( 1 ) ,nY{ 1 ) 

Y/: = Y(M) 

•j .vi = l\l— . ] 

on 10 T = 1 ,MM 

IF(xa.lt,x(i+i)) Gn Tn 20 

10 r,ni\'TiMiiF 
GO TO 40 

20 0'X = 1 .0 /(X( I + l )-X( I ) ) 
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J=I 

nA=XA-X(I) 

G=( ( (Y( I + l )-Y{ I ) )*OX)-OY( I ) )*0X 

F = ( ( { OY ( I + 1 )-nY ( I ) ) «nx )-2.o*G)»;«nx 

H=( F’M XA-XI I + l ) )+G )»:‘OA 
YA=(H+OY( I ) )*MXA-X( I ) ) +Y ( I ) 

AO HYCORF = FXP ( ?. ,^0?«YA) 

RFTDR^' • 

FiMI) 

SMBROIITI MF MOFB I V { i«'2 ♦ W?M » I F ♦ I , Kf MMP ) 

CO vlMOM/MflRn/nM ( 51 ) 

niMFMSinN w?((''MP,K) «W2N'(N'MPtK) 

If-.l = IF-2 

I ; IMI ) = ( 0M( i: IMI )«W2( Rt I : IMI )/nM( 2; Imi )-nM{2: )*W2( 1 » I U'-l 

1 )/nM| i: IMI ) )/( PM( 2 ; lMi)+nM( i; IMI ) ) + ( nN'{ ?; P-u )-o^'( i ; tmi ) )*'-'2( ?t t ; 

21 Ml ) / ( OM( 2 : 1 Ml ) *nM{ 1 : 1 Ml ) ) 

{ 1 » I ) = -W2 ( 1 • I ) ( Of'* (?) + 2 #05:«nN* ( 1 ) ) / ( ON* ( 1 ) * ( OM ( 2 ) + ON ( 1 ) ) ) MOPkn 1 / () 

1 +M2 ( 2,1 ) 5:«( OM{ 2 )+OM( 1 ) ) / ( r>M{ 2 ) *OM ( 1 ) ) MOPPO] 20 

2 -W 2 ( 2 , I )»;:nM( 1 )/ ( r>M( 2 )*( nM{ 1 )+0M( 2 ) ) ) mofroiao 

1.I2M( I F , I ) = W2 ( I F , I )5K { 0M( IM-1 l + P.O^l'OMC IM ) ) / ( 0M( IM ) * ( nM( IM )+nM{ IM-1 ) )MnCR01 50 


CriMMnw/CHFOR / AHV ( 50 ) , AH\/L ( 25 ) » FPS { 55 ) , FF ( 200 ) , FH\/C ( 50 ) » F'-'V ( 25 ) , 

25 ) ,FHVP( 25 ) ,GAMP ( 300) , GFF( 5ft) , GllP{ 200 ) , H\/|. ( 300) , I A( 9) , 

.MCRC ( 20 ) ♦ M0{ 200 ) , MKK ( 25 ) »Mtl( 25 ) , JMS'-l ( 50 ) , JMS'-'L ( 25 ) , XMRL { 200 ) » 
.ALPHA(23) ,BFTA(7) ,FIML(25t2) .FIPI.(2 5,^) , F T ( 50 , 2 ) » F I PC ( 50 , 2 ) , 
.FHVS(200) ,MSHC( 25) 

CnYMnM/CHFOR/XMM( 5 1 » 23 ) » XO ( 5 1 , 7 ) . M I CM ( 5 1 ) , Y Y ( 5 1 ) » TF F ( 5 1 ) t 
.PRFS( 51 ) ,OR| 51 ) ,FI Ml { 51 ) ,FIPI ( 51 ) »TLCP( 5 1 ) ♦ TLC P ( 5 1 ) , Kcp ( 51 ) , - 

.FmiI{ 51 ) ,TA»iT(51 ) ,01 M( 51 ) ,01 P( 51 ) ,FIM{ 51 ) ,FTP( 51 ) ,FPM| 51 ) , 

.FRP( 51 ) ,FLN( 51 ) ,FI IM{ 51 ) 51 ) ,FT MT( 51 ) ,F1PT( 51 ) ,LMi|( 51 ) , 

,SK(51 ),nSK(51),XF(51),FXPT(51)»YTX(51,3),V'X{51) 

COYMfiM/LR AO/I F7. , IRllMLY, I mphm , |. I mfS , MF , MFT A X , MSR , FRF , I IF , XOT I L , XMOI. 
c n V) M n M / A F R A n / 12 f i. t a , i m r f a n , k i , k ? , m a f s , m « L p , m w '/ , m T , a' i c , m I ^ \/ c , 

. M SHV , MX I , MY , TO ,C 2 , M I 0 pMT , mTR A m S , S F ( 5 ) 

COMMOM/CHFOO/OR I ( 51 ) 

IF(m,MF.1)G0 to 500 
■•'RITF(ft,PnO ) 


MOFPO I ftO 
MOFROl 70 
MOFPni pn 

f'.i n p p o 1 Q 0 


1 )-n2 ( I F-1 , 1 )*( r>M( iM-1 )+nM( I M ) ) / { ni'M im ) *om ( im-i ) ) 

2 +W2 ( I F-2 , I ) * 0 M( I M ) / ( OM ( I M-1 ) ( DM ( I M ) +0M ( I M- 1 ) ) ) 

rftiirm 

FMO • ^ 

SIIBROIITIMF , ARAOPO 

CnMMnM/SFL'IX/ORI (3) ,niFORW,FP,FM 

CnMMOM/PRnR/FTA( 51 ) ,F(51),RF1(51),HF2(51),TRC(51) ,TOTP( 51 ) . 
.CnMTFl ( 51 ) ,C0MTF2 ( 51 ) , P2P2( 51 ) 

COMMOM/CTR L / I f , I 0! ITPT , M » M I T , Ml IMP , 0\/L Y , R 01. Y , MMP , T I M FT , 

MHfinV . T TPO. M AGF . T OPT. TMOft . XI FMT S, XPRAMO 
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Qno PORMAKIHI, IX , • R AO I AT I Vf= FLUX VS. FRFOIIFMCY- AFRnjHFRM MPOPL • / 
,^OX, 'COMTINDIJM' »54Xt •LU'E OROUPS') 
i.,ip jjp(5,901 ) FTA( 1) »FTA( IMPOM) »FTA( IF) .FTAI l ) ,FTA{ P'Pn\l).PTA( IP) 

oni FORMAT (lHO,6X'FTA',FlA,2»F21.PtFl(S.:?,F;?R.2,F21.2»Fl<S.:?/6X,'FRFO, 

. • ,4X , 'O-MIMDS ' ,4X, 'O-PLIIS* ,4X, '0-MIMDS ' , AX, '0-PLUS • , 4X , ' 0-M I Ml IS ' 

, 9X , ' FRFO , ' , 4X , ' 0-Ml Mils ' ,4X , '0-PLUS ' » 4X , ' 0-M IMUS ' ♦ 4X , ' 0-PLUS ' , 

. 4X, '0-MIMIjS' ) 

;v V f-i X = M A X 0 ( ^ ' H V , W I H V C ) 
no 400 1=1 .MVMX 
''•RITF{6,902) 


90? 


R60 

400 


QIO 


FORMAT! IH ) 

IF( T .GT.MIHVC) GO TO 3A0 

V'RITF ( ft ,903 ) I , FH\/C( I ) t ( FIMC( I , J ) ,FI PC I I f J ) t.) = l »2 ),. FIMC ( I ,3 ) 
IFd.GT.MHV) GO TO 400 

WR I TF ( ft ,904 ) PHV ( I ) , ( FI ML ( I , J ) , F I PL ( I , J ) , J = 1 , 2 ) , F IML ( 1 , 3 ) 

COMTIMIIF 


j=iv,T nD\)T 

WRITFI ft,905) FIMI ( 1 ) ,FIPI ( 1 ) ,FIM] ( J ) ,FIPI U) ,FIMI (MY ) , 

TLCM( 1 ) ,TLCP( 1 ) ,TLCM( J ) ,TLCP( J ) , TLCM(MY) 

>-lRITF( ft,90ft) nPI_TA,ORI 
WRITF(ft,910) 

FORMAT ( IHl , 'COMTIM'IIIM SPECTRAL FLUX VS. FRFOUFMCY'/) 

MR ITF(ft,901) FTA(1),FTA( IMPOM) , FT A ( I P ) , FT A ( 1 ) , FT A ( I MPOM ) , FT A ( I F ) 


SRF1=SF( 1 ) 


SRF?=SF ( 2 ) 
SRF3=SF( 3 ) 
SRF4=SF (4) 


SRFft=SF( ft ) 

DO 499 T=1,MVMX 


IF( I .FO. 1 ) GO TO 490 
SUM=2.n/ ( FHVC ( I )-FHVC( I-l ) ) 

SR, F 1 = F I MG ( I , 1 ) =:= S I IM-S R F 1 M 
SRF?=FIPC( I , 1 )-SUM-SRF2M 
SRF3 = FIMC { I ,2 )’i=SIIM-SRF3M 
SRF4=FIPC( I ,?)=;'SUM-SRF4M 
SRF5 = FIMC( I , 3 )'"Sl.lM-SRFftM 
4*^0 COMTIMIIF 

SRF1M=SRF1 

SRF?M=SRF? 

SRF3M=SRF3 
SRF4M = SRF'^ 

SRFftM=SPFft 

MR ITF (ft,90» ) I ,FHVC( I ) , SP F 1 , SR F 2 , SR F3 , S R F4 , SR F ft 
90« FORMAT ( 1. X,I3,F«.3,F11.3»F10.3,F11. ,3,F10.3,F11.3) 


40ft COMTIMIIF 
ftOO COMTIMIIF 




AP AO 
AP A007 
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•'R I TP (^,91?) 

oi? FnP.iV;AT( lHO,piRX, 'RAni ATIVF FLUX, M/CM?',/) 

■''RITF(^,°13) { 0R( M) ,M=1 t IP) . . 

Q13 FORMAT! IK 1X,10F13.4,/) ) 

MR!TF(6,c>ll ) 

<m FORMAT! IHO, 1331 1H-) ) 

903 FORMAT! 1H+, I 3, FP .3 ,F1 1 .3,F10.3,F11 .3 ,Fin.3 ,F1 1 .3 ) 

. 9()^f FORMAT! IH+,70X,FR.3,F11.3,F10.3,F11,3 ,f10.9,f11.3) 

onS FORMATIIHO,' TOTAI. FU IX • , ? ! F 1 1 . 3 , F 10 . 3 ) , F 1 1 . 3 , 1 4X , ? ! F U . 3 , F 1 0 . 3 ) 
. F11.3) 

‘ 90i3 format ! IHt) , • nF|,TA=' F15.^>, ' CM, R A 0 1 A T T VF FLUX ='3F15.F, 

. 'K-ATTS/CM — ?'//-iX,123! 1H-) ) 

ORl! l:IF)=OR! 1 ;IF) 

RFTUR>'i 

PMI) 

SIIBROIITIMF FRP0!K,CFIL) 

COMMOM/CHFOR/ AHV! 30) , AHVL! 2 5 ) , FP S ! 33 ) , F F ! 300 ) , FHVC ! 30) ,FH\/! 23) , 
.FH'/f-M 23 ) , =H\/P! 23 ) ,G AMP! 300) , OFF! FA) ,C;iiP! 300 ) ,H\/I.! 300) , T A ! 9) , 
.MCRC! 20) ,Mn( ^(Ht) .a^kK! 23) ,Mll! 25) ,TM.SM! 30 ) ,TMSi*M. ! 23) ,XMOL! -AOO) , 

. ALPHA ! 23 ) , RFTA ! 7 ) , FIML ! 23,3 ) , FIPL ! 23, 3 ) , FI'-'C ! 30 , 3 ), F I PC ! 30 , 3 ) , 
.FH\/S!?00) ,MSHC! 23) 

COMMOM/CHFOR /XM.M! 31 ,23 ) , XO ! 3 1 , 7 ) , N'l C''! 3 1 ) , Y Y ! 31 ) , TF F ! 31 ) , 

.PRFS! 31 ) ,OR ( 3 1) ,FIMI ( FI ) ,FIPI ! 31 ) ,TLCM! 31 ) .TLCP ! 31 ) ,RFF( 31 ) , 
,FMII!31 ) , TAUT! 31 ) , nil''’! 31 ) ,niP! 31 ) , FI M! 31 ) , FTP! 31 ) ,FRM! 31 ) , 

,FRP| 31 ) ,F|j\!! 31 ) ,FI IM! 31 ) ,FI IP! 31 ) ,FImt! 31 ) ,FIPT! 31 ) .I.MU! 31 ) , 

.SK ! 31 ) ,nSK ! 31 ) ,XF! FI ) , FXPT! 31 ) ,XTX! 31 , 3 ) ,\/X! 31 ) 

COMMOM/AFR An/ OFLTA , I MRF AO ,Kl ,K 2 ,MAFS ♦ MRL P ,MH\/ , M I ,MTC ,MTH\/C , 

. MSH\/,mXI ,MY,T'-l,C?,M-inpWT,MTRAMS,SF! F) . 

niMFMSiinM AL!/^) 

OATA! Al. ! I ) , I=l ,4) /I .3F-A, 1.3F-3, 1 .3F-2,n.03/ 

M = ^ 

I«Y=0 

CFIL=0, 

Y)\!Y = r‘Y 

IF(MVL{K1 )'-FH\/'M(K) ) 30,30 
31 IF(HVL(K2)-FHVP{K) ) 33,30,30 
30 ■‘••RITF(N,3 50) 

3S0 PnpHAT(49H I MF CFMTFR OUT OF GPniip fppoufmcy q 

CALL PXIT 
33 CnMTlMHF 

X vil)r.',= I , F-OR / ( C 3^:'YY ( MY ) ) 

Xr-IiM = 0. ] -i^Xi’^iljf^VYMY 
IKK = 0 

on SO J=K1,K3 
IKK=IKK+1 
.•K=fv!SHC( IKK ) 


FP FOOOl 0 


FPFOOl 

CP 

Pf-.o;? 1 () 
pp prjop^j.n 
pq upop AT) 
pp fony r^n 
FP Foopsr: 
FP Fonp^m 

pp pr)f)pGO 

pr^ coo3(u) 
FWP003 10 / 
pq cno3?n 

pp P003^n 
pp P00 34<''' 
pp COO - ^0 
pp ponc^yo 
pp C003.30 
F- FDOi^l 0 
pp poOAPn 
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XK = MK 

K‘SHC( IKK )=2>:'NK+1 
IHT = ] 

J'-H = MY 

IF(lvn( JI.GT.l^S) Jf^ = Ml 
CALL MIILF(HVLU) ,SK) 

OSK( 1 ) = 1 .F-0<?/C2 
DO 500 1=1, MY 

IF(SK(I )-XMI)M) 501,500,500 
501 SK(I)=XMIM 
500 CriMTI'MIlF 

call TSLOVI jo ,YY,SK,XF,nSK ,PRFS,(1R,1) 

TAIIC = nSK( JO )>;'C2 
IF(GAMP(J)) 400,401,400 

401 IHT=0 

GIL=HVL( J )>;'*2/( 9.590F12 * XMM ( M I , 5 ) *«0 . ) 

IF(K-IA|5) ) 405,402,405 

402 GAMP ( J ) =AL ( 1 ) =:'G I L 
Gn TP 400 

405 IF(K-IA(4) ) 405,404,405 

404 GAMD( J)=AL(2)-;=GIL 
Gn TD 400 

405 IF(K-IA(1) ) 407,405,407 

406 GAiViP(J)=AL(5)=;--GIL 
Gn TO 400 

407 IF(K-IA(2) ) 400,40P,400 

4 OP G 4 MP ( J ) = A L ( 4 ) -l-'G T L 

4()0 COMTIMIIF 

G AR =X WW ( J5 , 5 ) =:=G A MP ( J ) * SOR T ( 1 . 0+T A (JC ) 

(.1 n 1^ = O . 5 * G A R 

GiViAX = 10.*GAR 

IF( IHT.FO.O) GAMP(J)=0, 

XF( 1 )=0,3 
IF( J-Kl ) 1,20.1 

?0 SW=HVL(K1 )-FHV.M( K ) 

IF(SM-GMAX) « 1,5 1,52 
a? SM=GMAX 
Gn in «i 

1 SM = 0.5*(H\/L ( J )-HVL( J-l ) ) 

IF( SM-GMAX ) 51 ,5 1 ,54 
a 4 SM=GMAX 

^1 TF(St^-GnR«XK) 50,50,2 
PO !=HVS( IRY + 1 ) =HVL ( J )-SM 
on 11 L=2,MK 
LY=L+IRY 

11 FH\/S(LY) = FHV.S(LY-1 ) + SM/XK 


FR F00450 
FR F00440 
FR FOOAOn 
FRFn0500 
FPP0051 0 
FRF00520 
FRF00550 
FR Pn054n 
FR Fn0550 
FR F00540 
FRF00570 

FR FOOPPn 
FRFOnOl O 
FR FOn620 
FR Fon65n 
FR F0064n 
PR F00650 
FR P00660 
FR F0067n 
FR F006P0 
PR C006U0 
FR pnoYon 

PR PO07 1 0 
FR F0072n 
FR F00750 
FR 500740 
FR FOO7 50 
FR '=00760 
FR FO07 70 
FP F007Rn 

FR cooyoo 
FR POOPOO 
FR FOOPGO 
FR FOOP70 
pp pnOPPO 
pp COORQO 
pp |;oot)(10 
F» P0091. 0 
pp poOPRO 
FRFOOC^n 
pp P00040 
pp POOOPO 
PR POOGAO 
FR FO0O70 
FR FOOPSO 
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Gn in I'ii 
? f)D Jl. = l,l« 

^1 SK{ jn = ( ( 1 .0+XF( Jl ) ) **N'K-1 .0 ) /XF ( J1 ) 

O.SK ( J1 ) = { XF ( J1 ) / ( XK»;=XF( J1 )-( 1 .0 + XF( .11 ) )**{ MK-1 )-( 1 . 0 + XF { J1 ) ) 

l^'K+1.0) 

4?, A?, 40 


40 

44 
4^ 
4? 

45 
5 
4 

5 00 


100 

5 

?00 


1 5 0 
151 

•>0 


I? 


IF( SK{ J1 )=:=GnR/SM-^?0 
IF( Jl-1 )44,44,45 
XF( .11 )=XF{.I1 )/5. 

GO Tf1 41 

XF { J1 )=XF ( Jl-1 ) + ( XF( J1 )-XF{ .11-1 ) ) /5. 
on TH 41 
XL = S'>i 

1 F ( Arts ( SK ( .11 )’:=GnR/SM-l .0 ) -0.0001 ) 5,5,4 5 

XF ( .Jl + n=XF ( J1 ) +nSK ( J1 )>;'( SM/GOR-SK ( .11 ) ) 

CONST I I'll IF 
'''RITF(M,300) 

FORMAT ( IHl lOX , lOHFRROR STOP// 4X,4MRnnT» « X , PM R FM A I MOF R , 1 5 X , IH K , 
IX ,5H0H\/,5X , IRMmIM-I MCRFMFMT, 5X , ?H SK , PX , 5Hn.SK ) 

on 5 .)? = i,?o 

FRR=XL-SK ( j;? )*GOR 

WR ITF( W,100 ) XF( .1? ) ,FRR,K ,XL , GOR , SK (.)?), O.SK ( .12 ) 

FORMAT( 2F 15.6 , 1 IX , I 5,5X, 4F12.4) 

COMTIMIIF 

S''RITF(M,?00) 

FORMAT (42H FRFOIIFMCY GRIO ITFRATTOM 010 MOT COMVFRGF) 

call FXIT 

FX = XF( J1 ) 

XFI1)=0.5 
on 150 L=1,MK 
LY=L+IRY 

FHVS ( LY )=HVL ( .) )-GOR* ( ( ( 1 . + FX ) *=:= ( N'K + 1 -I. ) - 1 . ) / FX ) 

CON'TIMOF 
Cni.iTTMIIF 
IF(J-K2) 7,21,7 
S3 = Fn\/P ( K )-m\/l ( J ) 

IF(SP-GMAX) 12,12,=>0 

SP=GMAX 

GO TO 1? 

SP = .5--:= ( HVI. ( .1+1 )-H\/L( .1) ) 

TF(SD-GMAX) 12,12,01 
SP=GMAX 

I F ( SP-GORsl'-XK ) P2,P2,3 
liIK=LiK+l 

MFK=?*MK+1 ' 

.vikP=MIK + 1 
IR1=MIK+IRY 


FR Fonoon 
FR FOl 01 ri 
FR FOl 020 
«*FRF01050 
FR FfU040 
FP COI 050 
FRPOl 050 
■ F= FOl 070 
FRFOl OPO 
FP FOl OPO 
F^FOl TOO 
FR=01 1 1 0 
FR PO 1 1 20 
F» =01 1 50 
FP FOl 1 40 
FP POl 1 50 
11 FRFOl 150 
FPFO] 1 70 
FR CO 1 1 PO 
FRFO] IQO 
FR COI ROr^ 
FP F01.210 
FRFOl 220 
FR FOl ? 50 
FRFOl 240 
FR coi 7 50 
FR COl 750 
F R F O 1 7 7 O 
pp CO 1 pen 
FR f^O] ^00 
pppo n 
pppOl 
FP FOl ^*^0 
FP f=01 ^A.0 
p p p o 1 ^ n 
F p F () 1 ^ f 
pD CO 1:^70 
Ft') FOl 
pp COl. 
FPfoi/aMo 
FP FOl A1 n 
FP FOl 4?0 
FP FOl ^^0 
pp COI. 4 AO 
pp cm 4«sri 
FO FOl 4 AO 
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FHVSn ^. 1. )=H\/(.( J) ■ • 

nn 13 l. = MIKP,MFK 

ly=l+iky ■ 

13 FHVS(I.Y)=FH\/S(I.Y-1 ) + SP/XK 
GD in 251 
s DO 9 J1=1,1Q 

M SK ( J1 ) = ( ( l.n+VFIJl ) )»:<>:»MK-1.0)/XF( J1 ) 

nSK( J1 ) = ( XF( J1 )>:”:«?)/( XK’KXFIJl )*( 1.0+XF(J1 ) )>:<*( MK-1 )-{ 1 ,0+XFIJl ) ) 
lMK+1.0) 

TF( SK( .11 )*GnR/SP-?n, ) 52,52t60 
50 IF{J1-1) 54,54,53 

54 XF(J1)=XF( JD/3. 

on Tf) 5 1 

53 XF( J1 )=XF|J1-1 )+|XF( J1)-XF( Jl-1) )/5. 

GO Tn 51 
5? XL=SP 

IF{ABS(SK( J1 )--;'GnR/'SP-l .0)-.n00l ) 10.10,55 

55 XF( J1 + 1)=XF( Jl) + n.SK{ Jl)>MSP/GnR-SK{Jl) ) 

IF(AR.S(.SK( J1 )>:'-Gf!R/SP -1 . 0 ) -. 0001 01 ) 10,10,9 

9 CnMTINtlF 
XL = SP 
Gl) TO 4 
10 FX=XF( J1 ) 

MIK=MK+1 
MFK = 2•:«^'K +1 
on ?50 L = MIK,|'''FK 
LY = I. + IRY 

F>-<\/S(LY)=HVL ( J)+GOR«( ( ( 1 , + FX ) l.-M I K ) - 1 . )/FX) 

3 50 CflMTlMlIF 
251 CnivTI'N'llF 

I5=MFK+IRY 

CFIL = CFII. +■ (FH\/S( I5)-FH\/S( IRY + 1 ) )5'XMnUJ) 

IRY = rRY + 2';'MK + l 
50 COMTINMIF 
RFTURM 
FiMO 

SIIBPOUTIMF M()LF( FHVZ.Sl ) 

CnMMPW/CHFQR/ AHV { 50) , AHVL ( 25) , '^PSI 55 ) , FF ( 300 ) , FHVC ( 50) .FH\/{ 25 ) , 

.Fw\/ivi( 25 ) , FHVP{ 25 ) ,GAMP ( 300) , GFF( 55) , GIIP( 300 ) ,MUL ( 300 ) , I A ( g ) , 
.MCRC ( 20 ) ,Nm( 300) ,MKK { 25 ) ,MII( 25 ) ,TM.SW( 50 ) .T^'iSilL { 25 ) .XMOI, { 300 ) , 

, ALPHA! 23 ) , RFTA( 7 ) , F I Ml. { 25 , 3 ) , F I PL ( 2 5 , 3 ) , F T mC ( 50 , 3 ) , F I PC ( 50 , 3 ) , 
.FHVS { 200 ) ,K'SHC ( 25 ) 

Cf1MMn(v!/CHF0R/Xj'!M( 51 , 23 ) , XQI 51 ,7 ) , MICH( 51 ) , YY( 51 ) , IFF ( 51 ) , 

.PRFS{ 51 ) ,OR( 51 ) ,FI MI ( FI ) ,FIPI { 51 ) ,tLCM( 51 ) ,TLCP( 51 ) ,RFF( 51 ) , 
.FMIK51 ) ,TAUT( 51 ) ,nl M( 51 ) ,nl P( 51 ) , FIM( 51 ) , FT P( 51 ) , FRM( 51 ) , 

• FRP( 51 ) ,FLH( 51 ) ,FI IM( 51 ) ,FI IP( 51 ) .FIMJ! 51 ) , F I PT ( 5 1 ) , L m| I ( 5 1 ) , 


FRF01470 
FP FOl 4«0 
pp F6l.4Qn 
FPFOl 500 
FPFOl 510 
FR FOl 540 
FPFOl 550 
FPFOl 5 ISO 
FPFOl 570 
FPFOl. 5R0 
FR FOl 50 0 
FRF01 600 
FPFOl 610 
FRF01620 
FP FOl 430 
FR CO 1640 
FR F01650 
FPFOl 660 
FR FOl 670 
FP ROl 6R0 
FRFO16O0 
FRFOl 700 
FR FOl 7 TO 
FP FOl 720 
FPF01730 
FPFOl 7 50 
FRFOl 760 
FPFO 177f' 
FPFOl 7P0 
FPFO 1790 
FP FOIROO 
FP FO 1 » 1 0 
FPFO IP 20 
FQ FOl ft^O 
FR FO 1 «40 
FP FO 1 H50 
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MI.)LFin??0 

i^l)LFn?30 


.SK( 51 ) tDSKl 51 ) ,XF( 31 ) »FXPT( 51 ) ,XTX( 51 »3) ,VX( 51 ) 
niMFMSinw Sl( 1 ) »XR| 7) 

CnMKnM/AFR AD/ nFI.TA»lMRFAD»KltK2»MAFS» MRLP fMHV » M I t M IC ♦ NT H\/C t 
, MSH\/»MXI ,NY»TWtC2tNlDPMT»MTRANS»SF( 5) 

OlMFMSinN Al PHI P ) ,BFTZ(8 ) tOFLl P) tXI(R)»SLA(P),SLR(R) »SHA ( ft ) »SHB ( « ) 
ltSLAS(S),SLRS(P),SHASIP)»SHftS(«) MULFORAO 

niMFMSinw MILKI7) 

FOKI VALFNCF ( X» AI ) 

OATAIAI PH(J)»J = lt8)/0,tl . F-A , 2 . F~^ . F“A » ft . F"4 , 1 . 2 F“3 ♦ 1 . (SF“3 » 2 . ftF-MUL F0270 

, Mi)LFO?ftn 

nATA|HFTZ(J)»J = lfB) /O. ,5.F-4, 1 ,F-3*2 .F-3»3.F-'3 » 5.F-3 t7,F-3 » 1'. F-2/ 

DATAinFLI J ) , J = 1 t'’ )/0. , . 02 ,. 04 « .08». 12,,16,.2t .24/ M|||.F03nn 

nATMXIIJ) ,J = 1 ,B)/n.t.02 5,.05».l».15».2».2 5,.3/ HI)|.Fn3in 

OATAISLAI J) , J = 1,P )/3.362t3.114.2,748,2.301,2.000., 1.77ft.l.5P0.1.144MllLF0320 

Miii.Fn33n 

DATAISLBIJ ) . J = ltP )/l.PP6»2. 1 87 ♦ 2 . 248 , 2 . 000 , 1 . 71 ft t 1 . 22 8 t 0. 903 t 0 . 49 1 Ml II. F0340 


1 / 


nATA(SHA{J),J=l,8)/l.231t.^0ftt.512».079»-.244,-.522.-.73?.-.921/ 

OATAISHRI J ) » J=1 ,8 ) /.492. ,7..ft23t . 2ft7 . Oft » - . 337 ,-.537. -.721/ 

DATA! SLAS U ) , J = l» 8 ) /-I . 890F+03 ,-3 . ft02 E+03 ,-3. 337F+03 ,-l .404F+03, 

1-4. 141F+02 ,-5 .086F+02 ,-4.ft33F+02 ,-2 .ftlftF+02/ 

DATA! SLBS (J ) , J = 1 , 8 ) /B . 4 19F+02 , 3 . 03ft E+02 , -8 . 7ftftF+0 1 , -3 . 309F+02 ♦ 

1-2.820E+02 ,-l .990E+02 ,-l .370F+02 ,-l .222E+02/ 

OATAI SHAS (J ) , J=1 ,8 ) /-. 245 E+ 2 , - . 1 69 F + 2 , - . 1 2 ft E + 2 , - . 894F + 1 ,-.738F + l ,-MIJI.F04?n 
1 .602E+1 ,-.469F + l ,-.44ftE+l/ NMiLF0A30 

OATAI SHBS I J ) , J=l,8) /. 140F+2, .443F+00,-.ft2ftP + l , - . 7ft2E + l , ft 1 5F + 1 , - . ^1)1. F0440 


MI!LF0 3 50 
MIILE03ft0 
MIILFn370 
MIII.E03R0 
MlJLF039n 
M|||_po 400 
MIILFOAin 


14.^>RF+1 ,-.353F + l,-.352E+l/ 

DATA XR/0.2 073R2E12,0. 19A044E1 2 , 0 . 2 239ftOE 1 2 , 0 . 773042 5 El 2 , 
0.2073B2E12,0.19404AF12»0.2239ftOEl2/ 

OAT A P 1/3. 141 59/, MILK/4,2, 12, 14,3,1 ,13/ 

POLYI A,B,C) = A + B=:<TT + C-TT*TT 

RLAI A,B,C,D,E,F)=PnLYI A,B,C) + ALOGX'i'PnLY I 0 , E , F ) 

GAMLYI A) = 5,79E-21=:«A*AI/S0RT( TT) * I A LOG 10 I 0 . 1 R 7 5Eft-TT ) -0 . 5*Al.nG X ) 
BALMY|A,B,C,0,F) = A* I B*TT ) *« I -C ) - ALO GX’1‘0’'.' I T3 ) *-!' I -E ) 

BLIMF I A ) =A«| 1 .+R*SQRTI WOH«F0 ) ) *WOH«* | -2 . 5 ) 

SOft9PI=SORTIO.ft9315/PI )/R0ft5.0 

on 500 1 = 1, MY 

X=XMM|I,5) 

Al.nGXsALnGlOl X ) 


mulfoabo 
miiLFOa.'^O 
MDLF0470 
MIILE0510 
MULEOftftO 
Ml II. EO 58 0 
MllLFOftOO 
MIILFOftPO 
MULEOftAO 
Mll|.F0ft7O 
MIILFOYOO 
MIII.F0710 
MDLF0720 


Sll I )=0.0 

TT=TFFI I ) 

TT2=TT’:<TT 

Tl=R.ft2F-5*TT 

TX=1.0/T1 

T2 = l .380^7F-lft>'.= TT 

T3=1.06-4>;‘TT 


MIILF0730 
M1ILP0740 
Ml ILF07 50 
MI)LF07ftn 
Mill. F07 7n 
Ml i|. F0780 
MIILFOTPO 
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1 on 
in') 

no 
] ■?() 

] 

140 
1. 4R 

1 S O 
1 f O 


\/l=VX ( I ) 

r-()=l? , S?SF_10:;:V1 

T'^SOsO.i^PPTf^F-l 0»;'SORT ( J? ) 

FHF0=1 . 537 1/ ( FHV7.=:'-FH\/Z’:'F0 ) 

FH\/T = 1 ,0-FXP ( -FM\/7=;<TX ) 
on 400 .I=-K1,K7 
lK=Mn(j) 

I R K =0 , 1 ?55|'F LnAT ( I K- 1 ) + 1.0001 

XP=XF"^I ( I , T LK ) -OFF ( I K ) - XO ( I , I R K ) - F X P ( - F PS ( IK ) »:'TX ) 

SL = F . P53‘^7F-1 3-XP-FF ( J ) 

TFX = X 

]F(jR<-4) 100.105,750 

rFX=XTX ( I , IRK) 

(;n TO 7'5f) 

M I n= 1 000 , 0- ( H\/i. ( j ) + 0 . 000 1 ) 

...inw = ',jnHT*AHS ( 1 ./FH\/Z-1 ./H\/L ( J ) ) 

IF(MIf).MF. 10105) GO in 170 
TF(''nH,GF,0.007 5 ) GO TO 110 
CALL riG L F { 1 , wnH , R L . « » A L PH , S L A , S L A S ) 
w=10.0-*RL 

Q=,RLA(7.957*“5,l75'^-A.1.345F-R,-0,4l?n7»P07F-5,-7.5 5F-10) 

h=KLI MF { 3.4F-R ) 

GO in 3»n 

I F ( MI n.HF. 170R4) r,n in 140 

I F ( M OH . G F . 0 , 0 1 ) GO TO 130 

CALL nGLF ( 1 , VIOH , RL, 3 ♦ RFTZ , SLR . SLPS ) 

H. = 10 .o=;”;o<L 

rLV.LM 17%5,-R.07c- 4, 7.05F-R, -0.7 175, 4.757 5F-5,-l.?3F-o) 

R = RLIMF( 1.7<^F-5) 


r;n in rro 

I F ( Ml n. MF . 1 774R ) GO TO 145 
GA.m = GA v.lY (1075.0) 

GO TO 500 

I F ( M 1 n.MF . 1 RR “ ) GO TO 150 
I F ( WON . GF . 0. 74 ) GO TO 150 
call HGLF ( 1 , nr'.H . RL . R . OFl. , SM A , SH A S ) 

4 = 10.0=:=-HL 
GO TO 3R(l 

R = rALMY( 1.57 07,5.0F-5,n.57,0.1 1RR,0.57R) 

R = R L IMF ( 1 . 5 F - 3 ) 


<;n yn 5«o 

I F { M I 0 .MF . 754Q ) GO yn 1«0 


Ml 1|_ FOPO'') 

will. FORI n 

Ml II. FOR 70 
MIIL F0P30 


Ml IL FOR RO 
Ml il.FOQRO 
f/,IILFOQR>o 
Ml II. FI 000 
Ml II. FI 030 
Ml iLF 1 050 
Mill. FI 1 00 
Mill. FI 1 1 0 
Mill. FI 1 7 0 
MIII.F] ) 50 
Ml l|. F 1 1 5 0 

Ml II. F 1 7 00 
MIH.F 1 75ii 
Ml !L F 1 740 
Ml II. FI 7 50 
Ml l|. F 1 7 50 
Ml II. FI 770 
Ml II. FI 7RO 
Ml II. F 1 7F'0 
Ml II. FI 570 
Ml II. F 1 530 


Mill. FI 5 50 
Mill. FI 5 50 
M|ILF157 Cp 

Ml || Cl 
Ml It. F 1 5on 
Ml IL F 1 4 70 
MIII.F) 4 50 
Ml II c 1 44 0 
Ml II. P 1 47 r> 
Ml M. F 1 4.00 
Ml II. F 1 500 

Ml II. F 1 5 70 
Mill. F 1 550 

Ml l|_ P 1 540 
Mill FI PRO 
Ml II. P 1 Pf- ! • 
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IF('-inH.GF.0.3 ) Gn in 170 

CALL nGI.F( l,WnH,BLtB,XI,SHR,SHRS) 

R=10,0’:‘«RL 
Gn in 

170 P. = BALMY( 2.17» 1 .OF-4,0.339,0. 1 1B,0.?33) 
H=BLIMF(3.57F-3) 

GO jn 3«0 

1^0 IF(MI0.MF.(S60) Gn TO 230 

GAM=GAmlY( 1267.0) 

Gn in 300 

?of) GAM = GAMP( J )«TFX 

1F(GIIP(J).LT.1.0) Gn in 300 

A1R=0. 175«GFF ( IK)’:‘FF( J)/H\/L( J) SORT( ;fF( IK)/GIIP( J) ) 
GAM = GA\1 + 0,37 216F-19«A1R«XP 
AOO Mn = H\/L ( J ) »:'T2S0«XR( IRK) 

'.!np=wo5:si.in 

FHLS = FHVZ-HVI. ( J) 

FHLSn=FHLS«FHLS 

H=GAM/ ( R5347.05;. ( FHLSQ+3AM»G AM ) ) 

if(gam+gam.gf.u'o) Gn in 390 

K3 = R 

H=S069PI«FXP (-0.69315*FHLS0/wn2) /nn 
IF(FHI.SO.LF,'*i02) GO TG 390 
^=AMAXl (RtRR) 

Gn TO 390 
Han k=FHF0«R 
BOO F.''1US = SL=.'FH\/T*R 
400 SI ( I )=Sl ( I)+FMI!S 
ROO CnMTIMUF 
RFTURM 
FMO 

SURROIITIMF .nGLP{M»XAMtPRM.MIIMX,X.PtFM) 

OIMFNSinN XAM.( 1 ) ,X( 1 ) .P( I ) ,FM( 1 ) .PRM( 1 ) 

Xni F = X ( MIJMX )-X ( 1 ) 

IF( XniF.FQ.O. )RFTIIRM 
I S = 1 

nn 1 ^ j=i,M 

XA = XAr.1(J) 

in=i 

IT = 1 

2 TF(XniF*(XA-X( IS) ) )3,7,P 

3 IF(IS-1)6,6,4 

is=is-i 

IT = 2 

TF( I n-1 )?.,?, 11 

s I,S=^'IIMX 


MIILFl Ron 
Ml II. FI 600 
Ml ILF 1610 
Ml II. FI 620 
MIILFl 630 
MIILF1640 
MIILFl 660 
•MIILF16«0 
MIILFl 6QO 
Ml II. FI 700 
Ml II. FI 730 
Ml II. FI 760 
MIILF1770 
MIILF17P0 
Ml II. FI F.1 0 
MIII.F] «7o 

MIILFl ROO 
MIILFl POO 
MIII.F1910 
MII|_Flo«0 
MIILFlQon 
Ml ILF 2000 
Ml ILF 20 1 O 
MIILF2020 
MIH.F2040 


MIII.P?! 10 
MIII.F21 2 0 
M.IH.F2130 
nGI.FOOlO 
nGI.F0020 

nGI.F0040 

nOLFOORO 

OGI.F0060 

n; I.FOORO 

nGLFOOPO 
noi.FOi 00 
OGI.F01 1 n 
nGI.FO] 20 
noi. Foi an 
001.^0140 
noi.Ffn 60 
noLF('i AO 
nr-i.FOi 7 n 


87 



I = IS 

^ = 0. 

npoi=PKi( I ) 

Gn TO \2 
7 P^=P(IS) 
npi)i = FM( IS ) 

GO TO 1 
R I.S=IS+1 

TF( IS-MIIMX )P,P,5 
Ili=? 

IP( IT-1 )2,P, 10 
1<> TS = 1S-1 
11 I = IS 

OX = l./(X( I + l )-X( 1 ) ) 
i1A = X&-X ( I ) 

Fi.'I=Ff.M I ) 

G = ( ( (o( I + l )-P( I ) )=;<0 X)-fmi )*nx 
F=( ( ( f=M( I + l )-FMi )=;m)x )-?,*G)»;«nx 
H= (F*(XA-X( I + l ) )+G)-:<nA 
noni= (h+h+fm i + F=:=nA=;:i)A ) 

IP PR=(H + FM( I ) )=;:( XA-X( I ) )+D( I ) 

IT CriMTIMiiF 

PRr/, (J)=PR 
14 CntvTlMlJF 
P FTIIPM 
Fwn 


nGLFOl HO 
nGI.FOl qn 
noLFOpoo 
HGLEOPIO 
nGLFOpPO 
HG I. FOP TO 

nr,|, F 0?/*0 

nGLFOPTO 
OGIFOPAO 
nGLFOPTO 
nGLPOPHo 
PGI. Fopon 
OGI. FOTOO 

noi. FO':^ 1 !^ 
OGI. FO^pn 
noi.FOT^^n 
o G|_ F.n T 4 o 
OG I. F n ^ F n 
n GL F O ^ 4 f ) 
00|. FOTT'i 
OGL FOTHO 
noLFOTon 
nGLt^04on 
OG I. F 0 4 1 o 
nr;LF04po 
OGI. F04Tn 
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$THPRMn 
M5;=19» MF=5» NA 
Mi*'FL( 1 )=5.4fl6F-A 
MW( 1 ) =5,4R6F-4, 1 
4.01»4.01, 

37.041 .49.04, 

f.FMO 

F- 1 

0.?500000F+01 0, 
-0.7^53750F+03-0, 
0.P.500000F+01 0. 
-0.7^53749F+03-0. 
0.250BF+01 
-0.7450E+03 
0.0 
H 

0.2500000F+01 0. 
0.2547142F+05-0. 
0.2500000F+01 0. 
0.2547142F+05-0. 


=3* MM=19t 
, 1.00Rt4.01» 
.008,2.016,1 


12.011»16.0, 

,008f 

12.001,24.022,36.033tl2.01,25.03t 26.038, 


16. ,32. ,16. ,28. Oil, 44. 01, 


0 . 0 . 0 . 

1173402F+02 GORDDM AMO MC8RIDF NASA SP-273 
0 ♦ 0 . . 0 . 
GORDON AMD MCBRIDF NASA SP-273 
0.1364F-08 -0.1094F-12 

FSCH FTAL NASA CR-111989 
-.lOOOF-12 26.000F-05 


0.2934F-17 


0.0 


7 

-3 


0 


2 .478164F+00 
2.523626F+04 
0.294F-05 
H2 

0.3057445F+01 
-O.9P89047F+03-0. 

0.3100190F+01 0. 
-0.8773B04F+03-0. 
0.3363F+01 
-0.1018F+04 
-0.079E-05 
H+ -1 

0.2500000E+01 0. 
0. 1840334F+06-0. 
0.2500000F+01 0. 
O. 1840334F+06-0. 
0.2500000F+01 0. 
0. 1840334F + 06-0. 
0.0 
HF 

0.2500000F+01 0. 
-n.7^53749F+03 0. 

0.2500000F+01 0. 
-O.7453749E+03 0. 
0.2500000F+01 0. 


1173402E+02 
-0.6332E-05 
-0. 1208F+02 
.0500F-07 
1 

0 . 0 . 0 . 

4601176E+00 GORDON and MCBRIDE NASA SP-273 

0 . 0 . 0 . 

GORDON and MCBRIDE NASA SP-273 
-2.537593E-08 2.386674E-12 -4.551431E-17 

NICOLET NASA CR-132470 

-.0811F-12 2.496F-05 5.1290F-08 


4601176E+00 

.366387F-05 

.749137E-01 

.0B89E-07 

2 

2676520E-02- 
2299705E+01 
511 1946E-03 
1962942E+01 
0.4656E-03 
-0.3716E+01 
.0791E-07 
1 

1153862E+01 

1153862F+01 

1153862E+01 

.0500F-07 

1 

9153488E+00 

9153488F+00 


-0 .58099 16E-05 0 . 552 1039E-08-0 . 181 2273E-1 1 
GORDON AMD MCBRIDE NASA SP-273 
0. 526442 lE-07-0. 3490997 E-10 0.3694534E-14 
GORDON AND MCBRIDE NASA SP-273 

-0,5127E-07. 0.2802E-11 -0.4905E-16 

FSCH ETAL. NASA CR-111989 
-.0R86E-12 3.211E-05, 5.3440E-08 

0 . 0 . 0 . 

GORDON AND MCBRIDF NASA SP-273 

0 . 0 . 0 . 

GORDON AND MCBRIDE NASA SP-273 

0 . 0 . 0 . 

GORDON AND MCBRIDE NASA SP-273 


-.lOOOF-12 


26.000E-05 


0.0 


0 . 

GORDON 

0 . 

GORDON 

0 . 


AMD 


AND 


0 . 

MCBRIDE 

0 . 

MCBRIDF 

0 . 


0 . 

NASA SP-273 

0 . 

NASA SP-273 

0 . 


F 

E ■ 

E 

F 

E- 

E- 


H 

H 

H 

H 

H 

H 


H2 

H2 

H2 

H2 

H2 

H2 


H + 
H + 
H + 
H + 
H + 
H + 


HF 

MF 

HE 

HF 

HF 


E- 


H2 


2 

3 

4 

5 

6 

7 

8 

2 

3 

4 

5 

6 

7 

8 

2 

3 

4 

5 

6 

7 

8 


2 

3 

4 

5 

h 

7 

M+ R 

? 

3 

A 
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-0.7453749E+03 
-1.3451E-06 
HP + 

().?50000nF+01 
o.?b.S34?6F + 06 
0. ?EonoooE+ni 
0.?R534?6E+06 
O. ?E0000nF+01 

0.?.=’53426E + 0ft 
0.0 
C 

O.?53?R70F+01 

0.«SP404?P+05 

0.75P1066F+01 

0.«E?16;?9F+05 

0.?141F+01 

0.«E42F+05 

1.997E-05 

C? 

0.74E1«14F+01 
0.9PQ1 19PF+05 
0.404^'535F + 01 
0 .997094RF + 05 
0.40;?6F + 01 
0 .97P7F + 05 
1.931F-05 
C3 

O. 974084ftE+01 
0.971575?F+05 
0.3681 536 E+01 
0.9741395E+05 
0.;>213E + 02 
0.9423F+05 
2.019E-05 
C+ 

O. 25953P4F + 01 
0.216662PF+06 
0.251 ia27F+01 
0.2166772P+06 
0.252PE+01 
0.216nF+06 
0.0 
C.2M 

O.264994OF+01 

0.5627575E+05 

0.4420765F+01 


0.915348PE+00 
2.311919E-0P 
1 1 

0 . 

0.160R404F+01 

0 . 

0. 1608404F+01 

0 . 

0. 160B404F+01 
. 0500E-07 

-0. 159R764F-03 
0,46062379+01 
-0. 1469620F-03 
0.4312B87F+01 
0.3219F-03 
0 .6874F+01 
.17729-07 

-0,10144689-01 
-0. 158A6679+02 
0.20573659-03 
0. 12775159+01 
0. 48579-03 
0, 1090F+0] 
.13939-07 

-0.R428123E-02 

-0.23837379+01 

0.2416523E-02- 

0.6837780F+01 

-0.17599-01 

-0.10219+03 

.11799-07 

1 

-0. 40686649-03 
0.38957299+01 
-0. 17359789-04 
0.42B61 299+01 
0.48699-05 
0.41399+01 
.05009-07 
1 

0,84919519-02- 
0,76898609+01 
0,221 19309-02- 


OnRonM AMO MCBRIOE NASA SP-273 
-4.7359889-13 2.03889-05 3.2493F-08 


0 . 0 . 0 . 

OORnnN AMO MCBRIDF NASA SP-273 

0 . 0 . 0 . 

GORnriM Amh R'CRRIOF MASA SP-273 

0 . 0 . 0 . 

OnROnW ANin MCBRinP mas a SP-273 

-.10009-12 26.0009-05 

1 

0. 30682089-06-0. 2 677006F-0 9 
GPROOM AMO MCBRinF MASA SP- 
0.74388089-07-0.79481079-11 
GORODM AMO MCBRinp MASA SP- 
-0.54989-07 0.3604P-11 

9SCH FJAL MASA CR-111989 
-.33789-12 2.5069-05 

2 


0.0 


0.B5879739 
GOROOM AMO 
0. 1090757F 
GORnnM AMO 
-0.70269 
9SCH 9TAL 
-.25759 
3 

0.18620199 
GORnOM AMO 
-0.84348119 
GORnnM AMD 
0.55659 
9SCH 9TAL. 
-.16559 

1 

0.68923669 
GORnnM AMO 
0.95042679 
GORnnM AMO 
-0.70269 
FSCH 9TAI. . 
-.10009 

2 

•0.98165379 
GORnOM AMn 
■0.59294949 


-05 0,87321.109-09 
MCBRIDE NASA SP- 
-06-^0,36427879-10 
MCBRinP MASA SP- 
-07 0.46669-11 

MASA CR-111989 
-12 .859F-05 

-04-0. 14510529-07 
MCBRinF MASA SP- 
■06 0.14508199-09 
MCBRIDE MASA SP- 
-05 -0.67589-09 

MASA CR-11.1P89 
■12 .6309-05 

-06-0. 52664879-09 
MCBRIDE MASA SP- 
-08-0.22188519-1 1 
MCBRIDE MASA SP- 
-08 0. 11349-11 

MASA CR-111989 
-12 26.0009-05 

-05 0.65373629-08 
MCRRTD9 MASA SP- 
-06 0,94195779-10 


,0. 87488829-18 
273 

0. 58900979-1 6 
273 

-0.55649-16 

.74799-08 

-0. 24429799-11 
273 

0.34127869-14 

273 

-0.11429-15 
.62339-08 
0.39676679-1 1 

273 

-0. 95697309-14 
273 

0.2825F-13 

. 58049-08 

0. 15083379-12 
273 

0. 18621899-15 
2.7 3 

-0.34769-16 


0,0 

-0.17356279-11 

273 

-0.68527599-14 


H9 

HF 

HF + 

H9 + 

HF + 

HF + 

H9 + 

H9 + 

H9 + 

C 

c 

c 

c 

c 

c 


C2 

C2 

C2 

C2 

C2 

C2 

C2 

C3 

C3 

C3 

C3 

C8 

C3 

C3 

C + 

C + 

C + 

C + 

C + 

C + 

C + 

C2H 

C2H 

C2H 


7 

8 

2 

3 

L. 

5 

6 

7 

8 
1 
2 
3 

L. 

5 

6 

7 

8 
1 
2 

3 

4 

5 

6 

7 

8 
1 
2 

3 

4 

5 

6 
7 
« 

2 

3 

4 

5 

6 

7 

8 

2 

3 

u 
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O. <SSK^S4^.F + 05-(). 1 15RS0PP + 01 anftonM amo mchriof masa SP-?7R 

0.5R07P+01 0.R9A6F-0R -0.lR7BP-nA O.Q251F-11 -0.?27«F-15 

O.SFOPF + OF -0.B2BBF + O1. FSCH FTAL. mASA r.H-lllQRP 

7.404P-05 .13iSRF-07 -.21«^F-12 1.12BF-05 ,7^?9F-0fl 

' C?H? 7 2 

0. 1410276F+ni 0. l9nF727F-01-0,2450139F-04 0 . 1 (B?90 «7 F-07-0 . 4 1 R4t;44F-l 1 
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